;;;; Generated on 3/22/2021 at 17:54:20 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%ZLANHS %ZLANHS %%ZLANHT %ZLANHT %%ZLANSB %ZLANSB
  %%ZLANSP %ZLANSP %%ZLANSY %ZLANSY %%ZLANTB %ZLANTB %%ZLANTP %ZLANTP %%ZLANTR
  %ZLANTR %%ZLAPLL %ZLAPLL %%ZLAPMR %ZLAPMR %%ZLAPMT %ZLAPMT %%ZLAQGB %ZLAQGB
  %%ZLAQGE %ZLAQGE %%ZLAQHB %ZLAQHB %%ZLAQHE %ZLAQHE %%ZLAQHP %ZLAQHP %%ZLAQP2
  %ZLAQP2 %%ZLAQPS %ZLAQPS %%ZLAQR0 %ZLAQR0 %%ZLAQR1 %ZLAQR1 %%ZLAQR2 %ZLAQR2
  %%ZLAQR3 %ZLAQR3 %%ZLAQR4 %ZLAQR4 %%ZLAQR5 %ZLAQR5 %%ZLAQSB %ZLAQSB %%ZLAQSP
  %ZLAQSP %%ZLAQSY %ZLAQSY %%ZLAR1V %ZLAR1V %%ZLAR2V %ZLAR2V %%ZLARCM %ZLARCM
  %%ZLARF %ZLARF %%ZLARFB %ZLARFB %%ZLARFG %ZLARFG %%ZLARFGP %ZLARFGP %%ZLARFT
  %ZLARFT %%ZLARFX %ZLARFX %%ZLARFY %ZLARFY %%ZLARGV %ZLARGV %%ZLARNV %ZLARNV
  %%ZLARRV %ZLARRV %%ZLARSCL2 %ZLARSCL2 %%ZLARTG %ZLARTG %%ZLARTV %ZLARTV
  %%ZLARZ %ZLARZ %%ZLARZB %ZLARZB %%ZLARZT %ZLARZT %%ZLASCL %ZLASCL %%ZLASCL2
  %ZLASCL2 %%ZLASET %ZLASET %%ZLASR %ZLASR %%ZLASSQ %ZLASSQ %%ZLASWLQ %ZLASWLQ
  %%ZLASWP %ZLASWP %%ZLASYF %ZLASYF %%ZLASYF_AA %ZLASYF_AA %%ZLASYF_RK
  %ZLASYF_RK %%ZLASYF_ROOK %ZLASYF_ROOK %%ZLAT2C %ZLAT2C %%ZLATBS %ZLATBS
  %%ZLATDF %ZLATDF %%ZLATPS %ZLATPS %%ZLATRD %ZLATRD %%ZLATRS %ZLATRS %%ZLATRZ
  %ZLATRZ %%ZLATSQR %ZLATSQR %%ZLAUNHR_COL_GETRFNP %ZLAUNHR_COL_GETRFNP
  %%ZLAUNHR_COL_GETRFNP2 %ZLAUNHR_COL_GETRFNP2 %%ZLAUU2 %ZLAUU2 %%ZLAUUM
  %ZLAUUM %%ZPBCON %ZPBCON %%ZPBEQU %ZPBEQU %%ZPBRFS %ZPBRFS %%ZPBSTF %ZPBSTF
  %%ZPBSV %ZPBSV %%ZPBSVX %ZPBSVX %%ZPBTF2 %ZPBTF2 %%ZPBTRF %ZPBTRF %%ZPBTRS
  %ZPBTRS %%ZPFTRF %ZPFTRF %%ZPFTRI %ZPFTRI %%ZPFTRS %ZPFTRS %%ZPOCON %ZPOCON
  %%ZPOEQU %ZPOEQU %%ZPOEQUB %ZPOEQUB %%ZPORFS %ZPORFS %%ZPORFSX %ZPORFSX
  %%ZPOSV %ZPOSV %%ZPOSVX %ZPOSVX %%ZPOSVXX %ZPOSVXX %%ZPOTF2 %ZPOTF2 %%ZPOTRF
  %ZPOTRF %%ZPOTRF2 %ZPOTRF2 %%ZPOTRI %ZPOTRI %%ZPOTRS %ZPOTRS %%ZPPCON %ZPPCON
  %%ZPPEQU %ZPPEQU %%ZPPRFS %ZPPRFS %%ZPPSV %ZPPSV %%ZPPSVX %ZPPSVX %%ZPPTRF
  %ZPPTRF %%ZPPTRI %ZPPTRI %%ZPPTRS %ZPPTRS %%ZPSTF2 %ZPSTF2 %%ZPSTRF %ZPSTRF
  %%ZPTCON %ZPTCON %%ZPTEQR %ZPTEQR %%ZPTRFS %ZPTRFS %%ZPTSV %ZPTSV %%ZPTSVX
  %ZPTSVX %%ZPTTRF %ZPTTRF %%ZPTTRS %ZPTTRS %%ZPTTS2 %ZPTTS2 %%ZROT %ZROT
  %%ZSPCON %ZSPCON %%ZSPMV %ZSPMV %%ZSPR %ZSPR %%ZSPRFS %ZSPRFS %%ZSPSV %ZSPSV
  %%ZSPSVX %ZSPSVX %%ZSPTRF %ZSPTRF %%ZSPTRI %ZSPTRI %%ZSPTRS %ZSPTRS %%ZSTEDC
  %ZSTEDC %%ZSTEGR %ZSTEGR %%ZSTEIN %ZSTEIN %%ZSTEMR %ZSTEMR %%ZSTEQR %ZSTEQR
  %%ZSYCON %ZSYCON %%ZSYCON_3 %ZSYCON_3 %%ZSYCON_ROOK %ZSYCON_ROOK %%ZSYCONV
  %ZSYCONV %%ZSYCONVF %ZSYCONVF %%ZSYCONVF_ROOK %ZSYCONVF_ROOK %%ZSYEQUB
  %ZSYEQUB %%ZSYMV %ZSYMV %%ZSYR %ZSYR %%ZSYRFS %ZSYRFS %%ZSYRFSX %ZSYRFSX
  %%ZSYSV %ZSYSV %%ZSYSV_AA %ZSYSV_AA %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE
  %%ZSYSV_RK %ZSYSV_RK %%ZSYSV_ROOK %ZSYSV_ROOK %%ZSYSVX %ZSYSVX %%ZSYSVXX
  %ZSYSVXX %%ZSYSWAPR %ZSYSWAPR %%ZSYTF2 %ZSYTF2 %%ZSYTF2_RK %ZSYTF2_RK
  %%ZSYTF2_ROOK %ZSYTF2_ROOK %%ZSYTRF %ZSYTRF %%ZSYTRF_AA %ZSYTRF_AA
  %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE %%ZSYTRF_RK %ZSYTRF_RK %%ZSYTRF_ROOK
  %ZSYTRF_ROOK %%ZSYTRI %ZSYTRI %%ZSYTRI2 %ZSYTRI2 %%ZSYTRI2X %ZSYTRI2X
  %%ZSYTRI_3 %ZSYTRI_3 %%ZSYTRI_3X %ZSYTRI_3X %%ZSYTRI_ROOK %ZSYTRI_ROOK
  %%ZSYTRS %ZSYTRS %%ZSYTRS2 %ZSYTRS2 %%ZSYTRS_3 %ZSYTRS_3 %%ZSYTRS_AA
  %ZSYTRS_AA %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE %%ZSYTRS_ROOK %ZSYTRS_ROOK
  %%ZTBCON %ZTBCON %%ZTBRFS %ZTBRFS %%ZTBTRS %ZTBTRS %%ZTFSM %ZTFSM %%ZTFTRI
  %ZTFTRI %%ZTFTTP %ZTFTTP %%ZTFTTR %ZTFTTR %%ZTGEVC %ZTGEVC %%ZTGEX2 %ZTGEX2
  %%ZTGEXC %ZTGEXC %%ZTGSEN %ZTGSEN %%ZTGSJA %ZTGSJA %%ZTGSNA %ZTGSNA %%ZTGSY2
  %ZTGSY2 %%ZTGSYL %ZTGSYL %%ZTPCON %ZTPCON %%ZTPLQT %ZTPLQT %%ZTPLQT2 %ZTPLQT2
  %%ZTPMLQT %ZTPMLQT %%ZTPMQRT %ZTPMQRT %%ZTPQRT %ZTPQRT %%ZTPQRT2 %ZTPQRT2
  %%ZTPRFB %ZTPRFB %%ZTPRFS %ZTPRFS %%ZTPTRI %ZTPTRI %%ZTPTRS %ZTPTRS %%ZTPTTF
  %ZTPTTF %%ZTPTTR %ZTPTTR %%ZTRCON %ZTRCON %%ZTREVC %ZTREVC %%ZTREVC3 %ZTREVC3
  %%ZTREXC %ZTREXC %%ZTRRFS %ZTRRFS %%ZTRSEN %ZTRSEN %%ZTRSNA %ZTRSNA %%ZTRSYL
  %ZTRSYL %%ZTRTI2 %ZTRTI2 %%ZTRTRI %ZTRTRI %%ZTRTRS %ZTRTRS %%ZTRTTF %ZTRTTF
  %%ZTRTTP %ZTRTTP %%ZTZRZF %ZTZRZF %%ZUNBDB %ZUNBDB %%ZUNBDB1 %ZUNBDB1
  %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB3 %ZUNBDB3 %%ZUNBDB4 %ZUNBDB4 %%ZUNBDB5 %ZUNBDB5
  %%ZUNBDB6 %ZUNBDB6 %%ZUNCSD %ZUNCSD %%ZUNCSD2BY1 %ZUNCSD2BY1 %%ZUNG2L %ZUNG2L
  %%ZUNG2R %ZUNG2R %%ZUNGBR %ZUNGBR %%ZUNGHR %ZUNGHR %%ZUNGL2 %ZUNGL2 %%ZUNGLQ
  %ZUNGLQ %%ZUNGQL %ZUNGQL %%ZUNGQR %ZUNGQR %%ZUNGR2 %ZUNGR2 %%ZUNGRQ %ZUNGRQ
  %%ZUNGTR %ZUNGTR %%ZUNGTSQR %ZUNGTSQR %%ZUNHR_COL %ZUNHR_COL %%ZUNM22 %ZUNM22
  %%ZUNM2L %ZUNM2L %%ZUNM2R %ZUNM2R %%ZUNMBR %ZUNMBR %%ZUNMHR %ZUNMHR %%ZUNML2
  %ZUNML2 %%ZUNMLQ %ZUNMLQ %%ZUNMQL %ZUNMQL %%ZUNMQR %ZUNMQR %%ZUNMR2 %ZUNMR2
  %%ZUNMR3 %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR
  %ZUPGTR %%ZUPMTR %ZUPMTR))

(CFFI:DEFCFUN ("zlanhs_" %%ZLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20623 ':INT32) (LDA-REF20625 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20623 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20625 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20624 A) (WORK-REF20626 WORK))
      (%%ZLANHS NORM N-REF20623 A-REF20624 LDA-REF20625 WORK-REF20626))))

(CFFI:DEFCFUN ("zlanht_" %%ZLANHT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER))

(COMMON-LISP:DEFUN %ZLANHT (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20628 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20629 D) (E-REF20630 E))
      (%%ZLANHT NORM N-REF20628 D-REF20629 E-REF20630))))

(CFFI:DEFCFUN ("zlansb_" %%ZLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20633 ':INT32) (K-REF20634 ':INT32)
                              (LDAB-REF20636 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20633 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20634 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20636 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20635 AB)
                                            (WORK-REF20637 WORK))
      (%%ZLANSB NORM UPLO N-REF20633 K-REF20634 AB-REF20635 LDAB-REF20636
       WORK-REF20637))))

(CFFI:DEFCFUN ("zlansp_" %%ZLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20640 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20641 AP)
                                            (WORK-REF20642 WORK))
      (%%ZLANSP NORM UPLO N-REF20640 AP-REF20641 WORK-REF20642))))

(CFFI:DEFCFUN ("zlansy_" %%ZLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20645 ':INT32) (LDA-REF20647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20645 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20647 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20646 A) (WORK-REF20648 WORK))
      (%%ZLANSY NORM UPLO N-REF20645 A-REF20646 LDA-REF20647 WORK-REF20648))))

(CFFI:DEFCFUN ("zlantb_" %%ZLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANTB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20652 ':INT32) (K-REF20653 ':INT32)
                              (LDAB-REF20655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20652 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20653 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20655 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20654 AB)
                                            (WORK-REF20656 WORK))
      (%%ZLANTB NORM UPLO DIAG N-REF20652 K-REF20653 AB-REF20654 LDAB-REF20655
       WORK-REF20656))))

(CFFI:DEFCFUN ("zlantp_" %%ZLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20660 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20660 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20661 AP)
                                            (WORK-REF20662 WORK))
      (%%ZLANTP NORM UPLO DIAG N-REF20660 AP-REF20661 WORK-REF20662))))

(CFFI:DEFCFUN ("zlantr_" %%ZLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20666 ':INT32) (N-REF20667 ':INT32)
                              (LDA-REF20669 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20666 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20667 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20669 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20668 A) (WORK-REF20670 WORK))
      (%%ZLANTR NORM UPLO DIAG M-REF20666 N-REF20667 A-REF20668 LDA-REF20669
       WORK-REF20670))))

(CFFI:DEFCFUN ("zlapll_" %%ZLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (SSMIN :POINTER))

(COMMON-LISP:DEFUN %ZLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAPLL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20671 ':INT32) (INCX-REF20673 ':INT32)
                              (INCY-REF20675 ':INT32) (SSMIN-REF20676 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20671 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20673 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20675 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF20676 :DOUBLE) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20672 X) (Y-REF20674 Y))
      (%%ZLAPLL N-REF20671 X-REF20672 INCX-REF20673 Y-REF20674 INCY-REF20675
       SSMIN-REF20676))))

(CFFI:DEFCFUN ("zlapmr_" %%ZLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %ZLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAPMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20677 ':INT32) (M-REF20678 ':INT32)
                              (N-REF20679 ':INT32) (LDX-REF20681 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20677 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20678 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20679 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20681 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20680 X) (K-REF20682 K))
      (%%ZLAPMR FORWRD-REF20677 M-REF20678 N-REF20679 X-REF20680 LDX-REF20681
       K-REF20682))))

(CFFI:DEFCFUN ("zlapmt_" %%ZLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %ZLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAPMT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20683 ':INT32) (M-REF20684 ':INT32)
                              (N-REF20685 ':INT32) (LDX-REF20687 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20683 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20684 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20685 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20687 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20686 X) (K-REF20688 K))
      (%%ZLAPMT FORWRD-REF20683 M-REF20684 N-REF20685 X-REF20686 LDX-REF20687
       K-REF20688))))

(CFFI:DEFCFUN ("zlaqgb_" %%ZLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQGB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20689 ':INT32) (N-REF20690 ':INT32)
                              (KL-REF20691 ':INT32) (KU-REF20692 ':INT32)
                              (LDAB-REF20694 ':INT32)
                              (ROWCND-REF20697 ':DOUBLE)
                              (COLCND-REF20698 ':DOUBLE)
                              (AMAX-REF20699 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20689 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20690 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20691 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20692 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20694 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF20697 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF20698 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20699 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20693 AB) (R-REF20695 R)
                                            (C-REF20696 C))
      (%%ZLAQGB M-REF20689 N-REF20690 KL-REF20691 KU-REF20692 AB-REF20693
       LDAB-REF20694 R-REF20695 C-REF20696 ROWCND-REF20697 COLCND-REF20698
       AMAX-REF20699 EQUED))))

(CFFI:DEFCFUN ("zlaqge_" %%ZLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20701 ':INT32) (N-REF20702 ':INT32)
                              (LDA-REF20704 ':INT32) (ROWCND-REF20707 ':DOUBLE)
                              (COLCND-REF20708 ':DOUBLE)
                              (AMAX-REF20709 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20701 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20702 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20704 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF20707 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF20708 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20709 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20703 A) (R-REF20705 R)
                                            (C-REF20706 C))
      (%%ZLAQGE M-REF20701 N-REF20702 A-REF20703 LDA-REF20704 R-REF20705
       C-REF20706 ROWCND-REF20707 COLCND-REF20708 AMAX-REF20709 EQUED))))

(CFFI:DEFCFUN ("zlaqhb_" %%ZLAQHB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQHB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20712 ':INT32) (KD-REF20713 ':INT32)
                              (LDAB-REF20715 ':INT32) (SCOND-REF20717 ':DOUBLE)
                              (AMAX-REF20718 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20712 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20713 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20715 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20717 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20718 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20714 AB) (S-REF20716 S))
      (%%ZLAQHB UPLO N-REF20712 KD-REF20713 AB-REF20714 LDAB-REF20715
       S-REF20716 SCOND-REF20717 AMAX-REF20718 EQUED))))

(CFFI:DEFCFUN ("zlaqhe_" %%ZLAQHE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQHE (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20721 ':INT32) (LDA-REF20723 ':INT32)
                              (SCOND-REF20725 ':DOUBLE)
                              (AMAX-REF20726 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20723 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20725 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20726 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20722 A) (S-REF20724 S))
      (%%ZLAQHE UPLO N-REF20721 A-REF20722 LDA-REF20723 S-REF20724
       SCOND-REF20725 AMAX-REF20726 EQUED))))

(CFFI:DEFCFUN ("zlaqhp_" %%ZLAQHP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQHP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20729 ':INT32) (SCOND-REF20732 ':DOUBLE)
                              (AMAX-REF20733 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20732 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20733 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20730 AP) (S-REF20731 S))
      (%%ZLAQHP UPLO N-REF20729 AP-REF20730 S-REF20731 SCOND-REF20732
       AMAX-REF20733 EQUED))))

(CFFI:DEFCFUN ("zlaqp2_" %%ZLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20735 ':INT32) (N-REF20736 ':INT32)
                              (OFFSET-REF20737 ':INT32) (LDA-REF20739 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20735 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20736 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF20737 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20739 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20738 A) (JPVT-REF20740 JPVT)
                                            (TAU-REF20741 TAU)
                                            (VN1-REF20742 VN1)
                                            (VN2-REF20743 VN2)
                                            (WORK-REF20744 WORK))
      (%%ZLAQP2 M-REF20735 N-REF20736 OFFSET-REF20737 A-REF20738 LDA-REF20739
       JPVT-REF20740 TAU-REF20741 VN1-REF20742 VN2-REF20743 WORK-REF20744))))

(CFFI:DEFCFUN ("zlaqps_" %%ZLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (AUXV :POINTER)
  (F :POINTER)
  (LDF :POINTER))

(COMMON-LISP:DEFUN %ZLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQPS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AUXV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20745 ':INT32) (N-REF20746 ':INT32)
                              (OFFSET-REF20747 ':INT32) (NB-REF20748 ':INT32)
                              (KB-REF20749 ':INT32) (LDA-REF20751 ':INT32)
                              (LDF-REF20758 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20745 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20746 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF20747 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20748 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20749 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20751 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF20758 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20750 A) (JPVT-REF20752 JPVT)
                                            (TAU-REF20753 TAU)
                                            (VN1-REF20754 VN1)
                                            (VN2-REF20755 VN2)
                                            (AUXV-REF20756 AUXV) (F-REF20757 F))
      (%%ZLAQPS M-REF20745 N-REF20746 OFFSET-REF20747 NB-REF20748 KB-REF20749
       A-REF20750 LDA-REF20751 JPVT-REF20752 TAU-REF20753 VN1-REF20754
       VN2-REF20755 AUXV-REF20756 F-REF20757 LDF-REF20758))))

(CFFI:DEFCFUN ("zlaqr0_" %%ZLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAQR0
                   (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20759 ':INT32) (WANTZ-REF20760 ':INT32)
                              (N-REF20761 ':INT32) (ILO-REF20762 ':INT32)
                              (IHI-REF20763 ':INT32) (LDH-REF20765 ':INT32)
                              (ILOZ-REF20767 ':INT32) (IHIZ-REF20768 ':INT32)
                              (LDZ-REF20770 ':INT32) (LWORK-REF20772 ':INT32)
                              (INFO-REF20773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20759 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20760 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20761 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20762 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20763 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20765 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20767 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20768 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20770 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20772 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20764 H) (W-REF20766 W)
                                            (Z-REF20769 Z) (WORK-REF20771 WORK))
      (%%ZLAQR0 WANTT-REF20759 WANTZ-REF20760 N-REF20761 ILO-REF20762
       IHI-REF20763 H-REF20764 LDH-REF20765 W-REF20766 ILOZ-REF20767
       IHIZ-REF20768 Z-REF20769 LDZ-REF20770 WORK-REF20771 LWORK-REF20772
       INFO-REF20773))))

(CFFI:DEFCFUN ("zlaqr1_" %%ZLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (S1 :POINTER)
  (S2 :POINTER)
  (V :POINTER))

(COMMON-LISP:DEFUN %ZLAQR1 (N H LDH S1 S2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20774 ':INT32) (LDH-REF20776 ':INT32)
                              (S1-REF20777
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (S2-REF20778
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20774 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20776 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S1-REF20777
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S2-REF20778
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S2)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20775 H) (V-REF20779 V))
      (%%ZLAQR1 N-REF20774 H-REF20775 LDH-REF20776 S1-REF20777 S2-REF20778
       V-REF20779))))

(CFFI:DEFCFUN ("zlaqr2_" %%ZLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SH :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %ZLAQR2
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V
                    LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        SH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20780 ':INT32) (WANTZ-REF20781 ':INT32)
                              (N-REF20782 ':INT32) (KTOP-REF20783 ':INT32)
                              (KBOT-REF20784 ':INT32) (NW-REF20785 ':INT32)
                              (LDH-REF20787 ':INT32) (ILOZ-REF20788 ':INT32)
                              (IHIZ-REF20789 ':INT32) (LDZ-REF20791 ':INT32)
                              (NS-REF20792 ':INT32) (ND-REF20793 ':INT32)
                              (LDV-REF20796 ':INT32) (NH-REF20797 ':INT32)
                              (LDT-REF20799 ':INT32) (NV-REF20800 ':INT32)
                              (LDWV-REF20802 ':INT32) (LWORK-REF20804 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20780 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20781 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20782 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20783 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20784 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF20785 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20787 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20788 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20789 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20791 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20792 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF20793 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20796 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20797 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20799 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20800 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20802 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20804 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20786 H) (Z-REF20790 Z)
                                            (SH-REF20794 SH) (V-REF20795 V)
                                            (T-REF20798 T) (WV-REF20801 WV)
                                            (WORK-REF20803 WORK))
      (%%ZLAQR2 WANTT-REF20780 WANTZ-REF20781 N-REF20782 KTOP-REF20783
       KBOT-REF20784 NW-REF20785 H-REF20786 LDH-REF20787 ILOZ-REF20788
       IHIZ-REF20789 Z-REF20790 LDZ-REF20791 NS-REF20792 ND-REF20793
       SH-REF20794 V-REF20795 LDV-REF20796 NH-REF20797 T-REF20798 LDT-REF20799
       NV-REF20800 WV-REF20801 LDWV-REF20802 WORK-REF20803 LWORK-REF20804))))

(CFFI:DEFCFUN ("zlaqr3_" %%ZLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SH :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %ZLAQR3
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V
                    LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        SH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20805 ':INT32) (WANTZ-REF20806 ':INT32)
                              (N-REF20807 ':INT32) (KTOP-REF20808 ':INT32)
                              (KBOT-REF20809 ':INT32) (NW-REF20810 ':INT32)
                              (LDH-REF20812 ':INT32) (ILOZ-REF20813 ':INT32)
                              (IHIZ-REF20814 ':INT32) (LDZ-REF20816 ':INT32)
                              (NS-REF20817 ':INT32) (ND-REF20818 ':INT32)
                              (LDV-REF20821 ':INT32) (NH-REF20822 ':INT32)
                              (LDT-REF20824 ':INT32) (NV-REF20825 ':INT32)
                              (LDWV-REF20827 ':INT32) (LWORK-REF20829 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20805 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20806 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20807 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20808 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20809 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF20810 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20812 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20813 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20814 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20816 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20817 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF20818 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20821 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20822 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20824 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20825 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20827 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20829 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20811 H) (Z-REF20815 Z)
                                            (SH-REF20819 SH) (V-REF20820 V)
                                            (T-REF20823 T) (WV-REF20826 WV)
                                            (WORK-REF20828 WORK))
      (%%ZLAQR3 WANTT-REF20805 WANTZ-REF20806 N-REF20807 KTOP-REF20808
       KBOT-REF20809 NW-REF20810 H-REF20811 LDH-REF20812 ILOZ-REF20813
       IHIZ-REF20814 Z-REF20815 LDZ-REF20816 NS-REF20817 ND-REF20818
       SH-REF20819 V-REF20820 LDV-REF20821 NH-REF20822 T-REF20823 LDT-REF20824
       NV-REF20825 WV-REF20826 LDWV-REF20827 WORK-REF20828 LWORK-REF20829))))

(CFFI:DEFCFUN ("zlaqr4_" %%ZLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAQR4
                   (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20830 ':INT32) (WANTZ-REF20831 ':INT32)
                              (N-REF20832 ':INT32) (ILO-REF20833 ':INT32)
                              (IHI-REF20834 ':INT32) (LDH-REF20836 ':INT32)
                              (ILOZ-REF20838 ':INT32) (IHIZ-REF20839 ':INT32)
                              (LDZ-REF20841 ':INT32) (LWORK-REF20843 ':INT32)
                              (INFO-REF20844 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20830 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20831 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20832 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20833 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20834 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20836 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20838 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20839 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20841 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20843 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20844 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20835 H) (W-REF20837 W)
                                            (Z-REF20840 Z) (WORK-REF20842 WORK))
      (%%ZLAQR4 WANTT-REF20830 WANTZ-REF20831 N-REF20832 ILO-REF20833
       IHI-REF20834 H-REF20835 LDH-REF20836 W-REF20837 ILOZ-REF20838
       IHIZ-REF20839 Z-REF20840 LDZ-REF20841 WORK-REF20842 LWORK-REF20843
       INFO-REF20844))))

(CFFI:DEFCFUN ("zlaqr5_" %%ZLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (KACC22 :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NSHFTS :POINTER)
  (S :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (NH :POINTER)
  (WH :POINTER)
  (LDWH :POINTER))

(COMMON-LISP:DEFUN %ZLAQR5
                   (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS S H LDH ILOZ IHIZ Z
                    LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20845 ':INT32) (WANTZ-REF20846 ':INT32)
                              (KACC22-REF20847 ':INT32) (N-REF20848 ':INT32)
                              (KTOP-REF20849 ':INT32) (KBOT-REF20850 ':INT32)
                              (NSHFTS-REF20851 ':INT32) (LDH-REF20854 ':INT32)
                              (ILOZ-REF20855 ':INT32) (IHIZ-REF20856 ':INT32)
                              (LDZ-REF20858 ':INT32) (LDV-REF20860 ':INT32)
                              (LDU-REF20862 ':INT32) (NV-REF20863 ':INT32)
                              (LDWV-REF20865 ':INT32) (NH-REF20866 ':INT32)
                              (LDWH-REF20868 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20845 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20846 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF20847 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20848 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20849 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20850 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF20851 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20854 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20855 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20856 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20858 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20860 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20862 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20863 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20865 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20866 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF20868 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF20852 S) (H-REF20853 H)
                                            (Z-REF20857 Z) (V-REF20859 V)
                                            (U-REF20861 U) (WV-REF20864 WV)
                                            (WH-REF20867 WH))
      (%%ZLAQR5 WANTT-REF20845 WANTZ-REF20846 KACC22-REF20847 N-REF20848
       KTOP-REF20849 KBOT-REF20850 NSHFTS-REF20851 S-REF20852 H-REF20853
       LDH-REF20854 ILOZ-REF20855 IHIZ-REF20856 Z-REF20857 LDZ-REF20858
       V-REF20859 LDV-REF20860 U-REF20861 LDU-REF20862 NV-REF20863 WV-REF20864
       LDWV-REF20865 NH-REF20866 WH-REF20867 LDWH-REF20868))))

(CFFI:DEFCFUN ("zlaqsb_" %%ZLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20870 ':INT32) (KD-REF20871 ':INT32)
                              (LDAB-REF20873 ':INT32) (SCOND-REF20875 ':DOUBLE)
                              (AMAX-REF20876 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20870 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20871 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20873 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20875 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20876 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20872 AB) (S-REF20874 S))
      (%%ZLAQSB UPLO N-REF20870 KD-REF20871 AB-REF20872 LDAB-REF20873
       S-REF20874 SCOND-REF20875 AMAX-REF20876 EQUED))))

(CFFI:DEFCFUN ("zlaqsp_" %%ZLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20879 ':INT32) (SCOND-REF20882 ':DOUBLE)
                              (AMAX-REF20883 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20879 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20882 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20883 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20880 AP) (S-REF20881 S))
      (%%ZLAQSP UPLO N-REF20879 AP-REF20880 S-REF20881 SCOND-REF20882
       AMAX-REF20883 EQUED))))

(CFFI:DEFCFUN ("zlaqsy_" %%ZLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20886 ':INT32) (LDA-REF20888 ':INT32)
                              (SCOND-REF20890 ':DOUBLE)
                              (AMAX-REF20891 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20886 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20888 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20890 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20891 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20887 A) (S-REF20889 S))
      (%%ZLAQSY UPLO N-REF20886 A-REF20887 LDA-REF20888 S-REF20889
       SCOND-REF20890 AMAX-REF20891 EQUED))))

(CFFI:DEFCFUN ("zlar1v_" %%ZLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (B1 :POINTER)
  (BN :POINTER)
  (LAMBDA :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (LLD :POINTER)
  (PIVMIN :POINTER)
  (GAPTOL :POINTER)
  (Z :POINTER)
  (WANTNC :POINTER)
  (NEGCNT :POINTER)
  (ZTZ :POINTER)
  (MINGMA :POINTER)
  (R :POINTER)
  (ISUPPZ :POINTER)
  (NRMINV :POINTER)
  (RESID :POINTER)
  (RQCORR :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLAR1V
                   (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
                    MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAR1V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAPTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ZTZ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINGMA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT NRMINV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RESID)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RQCORR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20893 ':INT32) (B1-REF20894 ':INT32)
                              (BN-REF20895 ':INT32) (LAMBDA-REF20896 ':DOUBLE)
                              (PIVMIN-REF20901 ':DOUBLE)
                              (GAPTOL-REF20902 ':DOUBLE)
                              (WANTNC-REF20904 ':INT32)
                              (NEGCNT-REF20905 ':INT32) (ZTZ-REF20906 ':DOUBLE)
                              (MINGMA-REF20907 ':DOUBLE) (R-REF20908 ':INT32)
                              (NRMINV-REF20910 ':DOUBLE)
                              (RESID-REF20911 ':DOUBLE)
                              (RQCORR-REF20912 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20893 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF20894 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF20895 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF20896 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF20901 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF20902 :DOUBLE) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF20904 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF20905 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF20906 :DOUBLE) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF20907 :DOUBLE) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF20908 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF20910 :DOUBLE) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF20911 :DOUBLE) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF20912 :DOUBLE) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20897 D) (L-REF20898 L)
                                            (LD-REF20899 LD) (LLD-REF20900 LLD)
                                            (Z-REF20903 Z)
                                            (ISUPPZ-REF20909 ISUPPZ)
                                            (WORK-REF20913 WORK))
      (%%ZLAR1V N-REF20893 B1-REF20894 BN-REF20895 LAMBDA-REF20896 D-REF20897
       L-REF20898 LD-REF20899 LLD-REF20900 PIVMIN-REF20901 GAPTOL-REF20902
       Z-REF20903 WANTNC-REF20904 NEGCNT-REF20905 ZTZ-REF20906 MINGMA-REF20907
       R-REF20908 ISUPPZ-REF20909 NRMINV-REF20910 RESID-REF20911
       RQCORR-REF20912 WORK-REF20913))))

(CFFI:DEFCFUN ("zlar2v_" %%ZLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER)
  (INCX :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %ZLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAR2V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20914 ':INT32) (INCX-REF20918 ':INT32)
                              (INCC-REF20921 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20914 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20918 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20921 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20915 X) (Y-REF20916 Y)
                                            (Z-REF20917 Z) (C-REF20919 C)
                                            (S-REF20920 S))
      (%%ZLAR2V N-REF20914 X-REF20915 Y-REF20916 Z-REF20917 INCX-REF20918
       C-REF20919 S-REF20920 INCC-REF20921))))

(CFFI:DEFCFUN ("zlarcm_" %%ZLARCM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLARCM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARCM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20922 ':INT32) (N-REF20923 ':INT32)
                              (LDA-REF20925 ':INT32) (LDB-REF20927 ':INT32)
                              (LDC-REF20929 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20922 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20923 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20925 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20927 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20929 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20924 A) (B-REF20926 B)
                                            (C-REF20928 C)
                                            (RWORK-REF20930 RWORK))
      (%%ZLARCM M-REF20922 N-REF20923 A-REF20924 LDA-REF20925 B-REF20926
       LDB-REF20927 C-REF20928 LDC-REF20929 RWORK-REF20930))))

(CFFI:DEFCFUN ("zlarf_" %%ZLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20932 ':INT32) (N-REF20933 ':INT32)
                              (INCV-REF20935 ':INT32)
                              (TAU-REF20936
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF20938 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20932 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20933 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20935 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20936
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20938 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20934 V) (C-REF20937 C)
                                            (WORK-REF20939 WORK))
      (%%ZLARF SIDE M-REF20932 N-REF20933 V-REF20934 INCV-REF20935 TAU-REF20936
       C-REF20937 LDC-REF20938 WORK-REF20939))))

(CFFI:DEFCFUN ("zlarfb_" %%ZLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %ZLARFB
                   (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20944 ':INT32) (N-REF20945 ':INT32)
                              (K-REF20946 ':INT32) (LDV-REF20948 ':INT32)
                              (LDT-REF20950 ':INT32) (LDC-REF20952 ':INT32)
                              (LDWORK-REF20954 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20944 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20945 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20946 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20948 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20950 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20952 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF20954 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20947 V) (T-REF20949 T)
                                            (C-REF20951 C) (WORK-REF20953 WORK))
      (%%ZLARFB SIDE TRANS DIRECT STOREV M-REF20944 N-REF20945 K-REF20946
       V-REF20947 LDV-REF20948 T-REF20949 LDT-REF20950 C-REF20951 LDC-REF20952
       WORK-REF20953 LDWORK-REF20954))))

(CFFI:DEFCFUN ("zlarfg_" %%ZLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %ZLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20955 ':INT32)
                              (ALPHA-REF20956
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF20958 ':INT32)
                              (TAU-REF20959
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20955 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF20956
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20958 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20959
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20957 X))
      (%%ZLARFG N-REF20955 ALPHA-REF20956 X-REF20957 INCX-REF20958
       TAU-REF20959))))

(CFFI:DEFCFUN ("zlarfgp_" %%ZLARFGP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %ZLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFGP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20960 ':INT32)
                              (ALPHA-REF20961
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF20963 ':INT32)
                              (TAU-REF20964
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20960 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF20961
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20963 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20964
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20962 X))
      (%%ZLARFGP N-REF20960 ALPHA-REF20961 X-REF20962 INCX-REF20963
       TAU-REF20964))))

(CFFI:DEFCFUN ("zlarft_" %%ZLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %ZLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20967 ':INT32) (K-REF20968 ':INT32)
                              (LDV-REF20970 ':INT32) (LDT-REF20973 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20967 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20968 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20970 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20973 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20969 V) (TAU-REF20971 TAU)
                                            (T-REF20972 T))
      (%%ZLARFT DIRECT STOREV N-REF20967 K-REF20968 V-REF20969 LDV-REF20970
       TAU-REF20971 T-REF20972 LDT-REF20973))))

(CFFI:DEFCFUN ("zlarfx_" %%ZLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20975 ':INT32) (N-REF20976 ':INT32)
                              (TAU-REF20978
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF20980 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20975 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20976 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20978
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20980 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20977 V) (C-REF20979 C)
                                            (WORK-REF20981 WORK))
      (%%ZLARFX SIDE M-REF20975 N-REF20976 V-REF20977 TAU-REF20978 C-REF20979
       LDC-REF20980 WORK-REF20981))))

(CFFI:DEFCFUN ("zlarfy_" %%ZLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20983 ':INT32) (INCV-REF20985 ':INT32)
                              (TAU-REF20986
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF20988 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20983 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20985 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20986
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20988 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20984 V) (C-REF20987 C)
                                            (WORK-REF20989 WORK))
      (%%ZLARFY UPLO N-REF20983 V-REF20984 INCV-REF20985 TAU-REF20986
       C-REF20987 LDC-REF20988 WORK-REF20989))))

(CFFI:DEFCFUN ("zlargv_" %%ZLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %ZLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20990 ':INT32) (INCX-REF20992 ':INT32)
                              (INCY-REF20994 ':INT32) (INCC-REF20996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20990 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20992 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20994 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20996 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20991 X) (Y-REF20993 Y)
                                            (C-REF20995 C))
      (%%ZLARGV N-REF20990 X-REF20991 INCX-REF20992 Y-REF20993 INCY-REF20994
       C-REF20995 INCC-REF20996))))

(CFFI:DEFCFUN ("zlarnv_" %%ZLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IDIST :POINTER)
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %ZLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARNV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF20997 ':INT32) (N-REF20999 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF20997 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20999 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF20998 ISEED)
                                            (X-REF21000 X))
      (%%ZLARNV IDIST-REF20997 ISEED-REF20998 N-REF20999 X-REF21000))))

(CFFI:DEFCFUN ("zlarrv_" %%ZLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (L :POINTER)
  (PIVMIN :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (DOL :POINTER)
  (DOU :POINTER)
  (MINRGP :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLARRV
                   (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
                    WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARRV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINRGP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21001 ':INT32) (VL-REF21002 ':DOUBLE)
                              (VU-REF21003 ':DOUBLE) (PIVMIN-REF21006 ':DOUBLE)
                              (M-REF21008 ':INT32) (DOL-REF21009 ':INT32)
                              (DOU-REF21010 ':INT32) (MINRGP-REF21011 ':DOUBLE)
                              (RTOL1-REF21012 ':DOUBLE)
                              (RTOL2-REF21013 ':DOUBLE) (LDZ-REF21021 ':INT32)
                              (INFO-REF21025 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21001 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21002 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21003 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF21006 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21008 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF21009 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF21010 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF21011 :DOUBLE) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF21012 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF21013 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21021 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21025 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21004 D) (L-REF21005 L)
                                            (ISPLIT-REF21007 ISPLIT)
                                            (W-REF21014 W) (WERR-REF21015 WERR)
                                            (WGAP-REF21016 WGAP)
                                            (IBLOCK-REF21017 IBLOCK)
                                            (INDEXW-REF21018 INDEXW)
                                            (GERS-REF21019 GERS) (Z-REF21020 Z)
                                            (ISUPPZ-REF21022 ISUPPZ)
                                            (WORK-REF21023 WORK)
                                            (IWORK-REF21024 IWORK))
      (%%ZLARRV N-REF21001 VL-REF21002 VU-REF21003 D-REF21004 L-REF21005
       PIVMIN-REF21006 ISPLIT-REF21007 M-REF21008 DOL-REF21009 DOU-REF21010
       MINRGP-REF21011 RTOL1-REF21012 RTOL2-REF21013 W-REF21014 WERR-REF21015
       WGAP-REF21016 IBLOCK-REF21017 INDEXW-REF21018 GERS-REF21019 Z-REF21020
       LDZ-REF21021 ISUPPZ-REF21022 WORK-REF21023 IWORK-REF21024
       INFO-REF21025))))

(CFFI:DEFCFUN ("zlarscl2_" %%ZLARSCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %ZLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARSCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21026 ':INT32) (N-REF21027 ':INT32)
                              (LDX-REF21030 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21026 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21027 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21030 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21028 D) (X-REF21029 X))
      (%%ZLARSCL2 M-REF21026 N-REF21027 D-REF21028 X-REF21029 LDX-REF21030))))

(CFFI:DEFCFUN ("zlartg_" %%ZLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %ZLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARTG)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) F)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF21031
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (G-REF21032
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CS-REF21033 ':DOUBLE)
                              (SN-REF21034
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (R-REF21035
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              F-REF21031 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART F)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART F)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              G-REF21032 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART G)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART G)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF21033 :DOUBLE) CS)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN-REF21034
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              R-REF21035 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART R)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART R)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLARTG F-REF21031 G-REF21032 CS-REF21033 SN-REF21034 R-REF21035))))

(CFFI:DEFCFUN ("zlartv_" %%ZLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %ZLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21036 ':INT32) (INCX-REF21038 ':INT32)
                              (INCY-REF21040 ':INT32) (INCC-REF21043 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21036 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21038 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21040 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF21043 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21037 X) (Y-REF21039 Y)
                                            (C-REF21041 C) (S-REF21042 S))
      (%%ZLARTV N-REF21036 X-REF21037 INCX-REF21038 Y-REF21039 INCY-REF21040
       C-REF21041 S-REF21042 INCC-REF21043))))

(CFFI:DEFCFUN ("zlarz_" %%ZLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21045 ':INT32) (N-REF21046 ':INT32)
                              (L-REF21047 ':INT32) (INCV-REF21049 ':INT32)
                              (TAU-REF21050
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF21052 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21045 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21046 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21047 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF21049 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF21050
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21052 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21048 V) (C-REF21051 C)
                                            (WORK-REF21053 WORK))
      (%%ZLARZ SIDE M-REF21045 N-REF21046 L-REF21047 V-REF21048 INCV-REF21049
       TAU-REF21050 C-REF21051 LDC-REF21052 WORK-REF21053))))

(CFFI:DEFCFUN ("zlarzb_" %%ZLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %ZLARZB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21058 ':INT32) (N-REF21059 ':INT32)
                              (K-REF21060 ':INT32) (L-REF21061 ':INT32)
                              (LDV-REF21063 ':INT32) (LDT-REF21065 ':INT32)
                              (LDC-REF21067 ':INT32) (LDWORK-REF21069 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21058 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21059 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21060 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21061 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21063 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21065 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21067 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF21069 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21062 V) (T-REF21064 T)
                                            (C-REF21066 C) (WORK-REF21068 WORK))
      (%%ZLARZB SIDE TRANS DIRECT STOREV M-REF21058 N-REF21059 K-REF21060
       L-REF21061 V-REF21062 LDV-REF21063 T-REF21064 LDT-REF21065 C-REF21066
       LDC-REF21067 WORK-REF21068 LDWORK-REF21069))))

(CFFI:DEFCFUN ("zlarzt_" %%ZLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %ZLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21072 ':INT32) (K-REF21073 ':INT32)
                              (LDV-REF21075 ':INT32) (LDT-REF21078 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21072 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21073 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21075 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21078 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21074 V) (TAU-REF21076 TAU)
                                            (T-REF21077 T))
      (%%ZLARZT DIRECT STOREV N-REF21072 K-REF21073 V-REF21074 LDV-REF21075
       TAU-REF21076 T-REF21077 LDT-REF21078))))

(CFFI:DEFCFUN ("zlascl_" %%ZLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TYPE :STRING)
  (KL :POINTER)
  (KU :POINTER)
  (CFROM :POINTER)
  (CTO :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASCL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CFROM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CTO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF21080 ':INT32) (KU-REF21081 ':INT32)
                              (CFROM-REF21082 ':DOUBLE) (CTO-REF21083 ':DOUBLE)
                              (M-REF21084 ':INT32) (N-REF21085 ':INT32)
                              (LDA-REF21087 ':INT32) (INFO-REF21088 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF21080 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF21081 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF21082 :DOUBLE) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF21083 :DOUBLE) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21084 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21087 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21088 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21086 A))
      (%%ZLASCL TYPE KL-REF21080 KU-REF21081 CFROM-REF21082 CTO-REF21083
       M-REF21084 N-REF21085 A-REF21086 LDA-REF21087 INFO-REF21088))))

(CFFI:DEFCFUN ("zlascl2_" %%ZLASCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %ZLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21089 ':INT32) (N-REF21090 ':INT32)
                              (LDX-REF21093 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21089 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21090 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21093 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21091 D) (X-REF21092 X))
      (%%ZLASCL2 M-REF21089 N-REF21090 D-REF21091 X-REF21092 LDX-REF21093))))

(CFFI:DEFCFUN ("zlaset_" %%ZLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASET)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21095 ':INT32) (N-REF21096 ':INT32)
                              (ALPHA-REF21097
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (BETA-REF21098
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF21100 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21095 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21096 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21097
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF21098
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21100 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21099 A))
      (%%ZLASET UPLO M-REF21095 N-REF21096 ALPHA-REF21097 BETA-REF21098
       A-REF21099 LDA-REF21100))))

(CFFI:DEFCFUN ("zlasr_" %%ZLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (PIVOT :STRING)
  (DIRECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (C :POINTER)
  (S :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21104 ':INT32) (N-REF21105 ':INT32)
                              (LDA-REF21109 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21104 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21105 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21109 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF21106 C) (S-REF21107 S)
                                            (A-REF21108 A))
      (%%ZLASR SIDE PIVOT DIRECT M-REF21104 N-REF21105 C-REF21106 S-REF21107
       A-REF21108 LDA-REF21109))))

(CFFI:DEFCFUN ("zlassq_" %%ZLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (SCALE :POINTER)
  (SUMSQ :POINTER))

(COMMON-LISP:DEFUN %ZLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASSQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21110 ':INT32) (INCX-REF21112 ':INT32)
                              (SCALE-REF21113 ':DOUBLE)
                              (SUMSQ-REF21114 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21110 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21112 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21113 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF21114 :DOUBLE) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21111 X))
      (%%ZLASSQ N-REF21110 X-REF21111 INCX-REF21112 SCALE-REF21113
       SUMSQ-REF21114))))

(CFFI:DEFCFUN ("zlaswlq_" %%ZLASWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASWLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21115 ':INT32) (N-REF21116 ':INT32)
                              (MB-REF21117 ':INT32) (NB-REF21118 ':INT32)
                              (LDA-REF21120 ':INT32) (LDT-REF21122 ':INT32)
                              (LWORK-REF21124 ':INT32) (INFO-REF21125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21115 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21116 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21117 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21118 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21120 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21122 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21124 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21125 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21119 A) (T-REF21121 T)
                                            (WORK-REF21123 WORK))
      (%%ZLASWLQ M-REF21115 N-REF21116 MB-REF21117 NB-REF21118 A-REF21119
       LDA-REF21120 T-REF21121 LDT-REF21122 WORK-REF21123 LWORK-REF21124
       INFO-REF21125))))

(CFFI:DEFCFUN ("zlaswp_" %%ZLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (K1 :POINTER)
  (K2 :POINTER)
  (IPIV :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASWP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21126 ':INT32) (LDA-REF21128 ':INT32)
                              (K1-REF21129 ':INT32) (K2-REF21130 ':INT32)
                              (INCX-REF21132 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21126 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21128 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF21129 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF21130 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21132 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21127 A) (IPIV-REF21131 IPIV))
      (%%ZLASWP N-REF21126 A-REF21127 LDA-REF21128 K1-REF21129 K2-REF21130
       IPIV-REF21131 INCX-REF21132))))

(CFFI:DEFCFUN ("zlasyf_" %%ZLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21134 ':INT32) (NB-REF21135 ':INT32)
                              (KB-REF21136 ':INT32) (LDA-REF21138 ':INT32)
                              (LDW-REF21141 ':INT32) (INFO-REF21142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21134 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21135 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21136 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21138 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21141 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21142 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21137 A) (IPIV-REF21139 IPIV)
                                            (W-REF21140 W))
      (%%ZLASYF UPLO N-REF21134 NB-REF21135 KB-REF21136 A-REF21137 LDA-REF21138
       IPIV-REF21139 W-REF21140 LDW-REF21141 INFO-REF21142))))

(CFFI:DEFCFUN ("zlasyf_aa_" %%ZLASYF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF21144 ':INT32) (M-REF21145 ':INT32)
                              (NB-REF21146 ':INT32) (LDA-REF21148 ':INT32)
                              (LDH-REF21151 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF21144 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21145 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21146 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21148 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF21151 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21147 A) (IPIV-REF21149 IPIV)
                                            (H-REF21150 H) (WORK-REF21152 WORK))
      (%%ZLASYF_AA UPLO J1-REF21144 M-REF21145 NB-REF21146 A-REF21147
       LDA-REF21148 IPIV-REF21149 H-REF21150 LDH-REF21151 WORK-REF21152))))

(CFFI:DEFCFUN ("zlasyf_rk_" %%ZLASYF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21154 ':INT32) (NB-REF21155 ':INT32)
                              (KB-REF21156 ':INT32) (LDA-REF21158 ':INT32)
                              (LDW-REF21162 ':INT32) (INFO-REF21163 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21155 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21156 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21158 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21162 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21163 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21157 A) (E-REF21159 E)
                                            (IPIV-REF21160 IPIV) (W-REF21161 W))
      (%%ZLASYF_RK UPLO N-REF21154 NB-REF21155 KB-REF21156 A-REF21157
       LDA-REF21158 E-REF21159 IPIV-REF21160 W-REF21161 LDW-REF21162
       INFO-REF21163))))

(CFFI:DEFCFUN ("zlasyf_rook_" %%ZLASYF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21165 ':INT32) (NB-REF21166 ':INT32)
                              (KB-REF21167 ':INT32) (LDA-REF21169 ':INT32)
                              (LDW-REF21172 ':INT32) (INFO-REF21173 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21165 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21166 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21167 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21169 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21172 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21173 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21168 A) (IPIV-REF21170 IPIV)
                                            (W-REF21171 W))
      (%%ZLASYF_ROOK UPLO N-REF21165 NB-REF21166 KB-REF21167 A-REF21168
       LDA-REF21169 IPIV-REF21170 W-REF21171 LDW-REF21172 INFO-REF21173))))

(CFFI:DEFCFUN ("zlat2c_" %%ZLAT2C :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAT2C (UPLO N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAT2C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21175 ':INT32) (LDA-REF21177 ':INT32)
                              (LDSA-REF21179 ':INT32) (INFO-REF21180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21177 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF21179 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21180 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21176 A) (SA-REF21178 SA))
      (%%ZLAT2C UPLO N-REF21175 A-REF21176 LDA-REF21177 SA-REF21178
       LDSA-REF21179 INFO-REF21180))))

(CFFI:DEFCFUN ("zlatbs_" %%ZLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLATBS
                   (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATBS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21185 ':INT32) (KD-REF21186 ':INT32)
                              (LDAB-REF21188 ':INT32) (SCALE-REF21190 ':DOUBLE)
                              (INFO-REF21192 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21185 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21186 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21188 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21190 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21192 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21187 AB) (X-REF21189 X)
                                            (CNORM-REF21191 CNORM))
      (%%ZLATBS UPLO TRANS DIAG NORMIN N-REF21185 KD-REF21186 AB-REF21187
       LDAB-REF21188 X-REF21189 SCALE-REF21190 CNORM-REF21191 INFO-REF21192))))

(CFFI:DEFCFUN ("zlatdf_" %%ZLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (N :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (RHS :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER))

(COMMON-LISP:DEFUN %ZLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATDF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RHS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF21193 ':INT32) (N-REF21194 ':INT32)
                              (LDZ-REF21196 ':INT32) (RDSUM-REF21198 ':DOUBLE)
                              (RDSCAL-REF21199 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF21193 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21194 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21196 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF21198 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF21199 :DOUBLE) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF21195 Z) (RHS-REF21197 RHS)
                                            (IPIV-REF21200 IPIV)
                                            (JPIV-REF21201 JPIV))
      (%%ZLATDF IJOB-REF21193 N-REF21194 Z-REF21195 LDZ-REF21196 RHS-REF21197
       RDSUM-REF21198 RDSCAL-REF21199 IPIV-REF21200 JPIV-REF21201))))

(CFFI:DEFCFUN ("zlatps_" %%ZLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLATPS (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATPS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21206 ':INT32) (SCALE-REF21209 ':DOUBLE)
                              (INFO-REF21211 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21206 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21209 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21211 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21207 AP) (X-REF21208 X)
                                            (CNORM-REF21210 CNORM))
      (%%ZLATPS UPLO TRANS DIAG NORMIN N-REF21206 AP-REF21207 X-REF21208
       SCALE-REF21209 CNORM-REF21210 INFO-REF21211))))

(CFFI:DEFCFUN ("zlatrd_" %%ZLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (W :POINTER)
  (LDW :POINTER))

(COMMON-LISP:DEFUN %ZLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21213 ':INT32) (NB-REF21214 ':INT32)
                              (LDA-REF21216 ':INT32) (LDW-REF21220 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21213 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21214 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21216 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21220 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21215 A) (E-REF21217 E)
                                            (TAU-REF21218 TAU) (W-REF21219 W))
      (%%ZLATRD UPLO N-REF21213 NB-REF21214 A-REF21215 LDA-REF21216 E-REF21217
       TAU-REF21218 W-REF21219 LDW-REF21220))))

(CFFI:DEFCFUN ("zlatrs_" %%ZLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLATRS (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21225 ':INT32) (LDA-REF21227 ':INT32)
                              (SCALE-REF21229 ':DOUBLE) (INFO-REF21231 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21225 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21227 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21229 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21231 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21226 A) (X-REF21228 X)
                                            (CNORM-REF21230 CNORM))
      (%%ZLATRS UPLO TRANS DIAG NORMIN N-REF21225 A-REF21226 LDA-REF21227
       X-REF21228 SCALE-REF21229 CNORM-REF21230 INFO-REF21231))))

(CFFI:DEFCFUN ("zlatrz_" %%ZLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21232 ':INT32) (N-REF21233 ':INT32)
                              (L-REF21234 ':INT32) (LDA-REF21236 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21232 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21233 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21234 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21236 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21235 A) (TAU-REF21237 TAU)
                                            (WORK-REF21238 WORK))
      (%%ZLATRZ M-REF21232 N-REF21233 L-REF21234 A-REF21235 LDA-REF21236
       TAU-REF21237 WORK-REF21238))))

(CFFI:DEFCFUN ("zlatsqr_" %%ZLATSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21239 ':INT32) (N-REF21240 ':INT32)
                              (MB-REF21241 ':INT32) (NB-REF21242 ':INT32)
                              (LDA-REF21244 ':INT32) (LDT-REF21246 ':INT32)
                              (LWORK-REF21248 ':INT32) (INFO-REF21249 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21239 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21240 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21241 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21242 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21244 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21246 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21248 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21249 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21243 A) (T-REF21245 T)
                                            (WORK-REF21247 WORK))
      (%%ZLATSQR M-REF21239 N-REF21240 MB-REF21241 NB-REF21242 A-REF21243
       LDA-REF21244 T-REF21245 LDT-REF21246 WORK-REF21247 LWORK-REF21248
       INFO-REF21249))))

(CFFI:DEFCFUN ("zlaunhr_col_getrfnp_" %%ZLAUNHR_COL_GETRFNP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAUNHR_COL_GETRFNP (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUNHR_COL_GETRFNP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21250 ':INT32) (N-REF21251 ':INT32)
                              (LDA-REF21253 ':INT32) (INFO-REF21255 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21250 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21251 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21253 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21255 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21252 A) (D-REF21254 D))
      (%%ZLAUNHR_COL_GETRFNP M-REF21250 N-REF21251 A-REF21252 LDA-REF21253
       D-REF21254 INFO-REF21255))))

(CFFI:DEFCFUN ("zlaunhr_col_getrfnp2_" %%ZLAUNHR_COL_GETRFNP2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAUNHR_COL_GETRFNP2 (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUNHR_COL_GETRFNP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21256 ':INT32) (N-REF21257 ':INT32)
                              (LDA-REF21259 ':INT32) (INFO-REF21261 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21256 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21257 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21259 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21261 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21258 A) (D-REF21260 D))
      (%%ZLAUNHR_COL_GETRFNP2 M-REF21256 N-REF21257 A-REF21258 LDA-REF21259
       D-REF21260 INFO-REF21261))))

(CFFI:DEFCFUN ("zlauu2_" %%ZLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21263 ':INT32) (LDA-REF21265 ':INT32)
                              (INFO-REF21266 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21263 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21265 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21266 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21264 A))
      (%%ZLAUU2 UPLO N-REF21263 A-REF21264 LDA-REF21265 INFO-REF21266))))

(CFFI:DEFCFUN ("zlauum_" %%ZLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUUM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21268 ':INT32) (LDA-REF21270 ':INT32)
                              (INFO-REF21271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21268 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21270 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21271 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21269 A))
      (%%ZLAUUM UPLO N-REF21268 A-REF21269 LDA-REF21270 INFO-REF21271))))

(CFFI:DEFCFUN ("zpbcon_" %%ZPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBCON (UPLO N KD AB LDAB ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21273 ':INT32) (KD-REF21274 ':INT32)
                              (LDAB-REF21276 ':INT32) (ANORM-REF21277 ':DOUBLE)
                              (RCOND-REF21278 ':DOUBLE) (INFO-REF21281 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21273 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21274 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21276 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21277 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21278 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21281 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21275 AB)
                                            (WORK-REF21279 WORK)
                                            (RWORK-REF21280 RWORK))
      (%%ZPBCON UPLO N-REF21273 KD-REF21274 AB-REF21275 LDAB-REF21276
       ANORM-REF21277 RCOND-REF21278 WORK-REF21279 RWORK-REF21280
       INFO-REF21281))))

(CFFI:DEFCFUN ("zpbequ_" %%ZPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21283 ':INT32) (KD-REF21284 ':INT32)
                              (LDAB-REF21286 ':INT32) (SCOND-REF21288 ':DOUBLE)
                              (AMAX-REF21289 ':DOUBLE) (INFO-REF21290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21284 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21286 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21288 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21289 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21290 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21285 AB) (S-REF21287 S))
      (%%ZPBEQU UPLO N-REF21283 KD-REF21284 AB-REF21285 LDAB-REF21286
       S-REF21287 SCOND-REF21288 AMAX-REF21289 INFO-REF21290))))

(CFFI:DEFCFUN ("zpbrfs_" %%ZPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBRFS
                   (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21292 ':INT32) (KD-REF21293 ':INT32)
                              (NRHS-REF21294 ':INT32) (LDAB-REF21296 ':INT32)
                              (LDAFB-REF21298 ':INT32) (LDB-REF21300 ':INT32)
                              (LDX-REF21302 ':INT32) (INFO-REF21307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21292 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21293 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21294 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21296 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21298 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21300 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21302 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21307 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21295 AB) (AFB-REF21297 AFB)
                                            (B-REF21299 B) (X-REF21301 X)
                                            (FERR-REF21303 FERR)
                                            (BERR-REF21304 BERR)
                                            (WORK-REF21305 WORK)
                                            (RWORK-REF21306 RWORK))
      (%%ZPBRFS UPLO N-REF21292 KD-REF21293 NRHS-REF21294 AB-REF21295
       LDAB-REF21296 AFB-REF21297 LDAFB-REF21298 B-REF21299 LDB-REF21300
       X-REF21301 LDX-REF21302 FERR-REF21303 BERR-REF21304 WORK-REF21305
       RWORK-REF21306 INFO-REF21307))))

(CFFI:DEFCFUN ("zpbstf_" %%ZPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21309 ':INT32) (KD-REF21310 ':INT32)
                              (LDAB-REF21312 ':INT32) (INFO-REF21313 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21309 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21310 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21312 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21313 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21311 AB))
      (%%ZPBSTF UPLO N-REF21309 KD-REF21310 AB-REF21311 LDAB-REF21312
       INFO-REF21313))))

(CFFI:DEFCFUN ("zpbsv_" %%ZPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21315 ':INT32) (KD-REF21316 ':INT32)
                              (NRHS-REF21317 ':INT32) (LDAB-REF21319 ':INT32)
                              (LDB-REF21321 ':INT32) (INFO-REF21322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21315 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21316 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21317 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21319 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21321 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21318 AB) (B-REF21320 B))
      (%%ZPBSV UPLO N-REF21315 KD-REF21316 NRHS-REF21317 AB-REF21318
       LDAB-REF21319 B-REF21320 LDB-REF21321 INFO-REF21322))))

(CFFI:DEFCFUN ("zpbsvx_" %%ZPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBSVX
                   (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21325 ':INT32) (KD-REF21326 ':INT32)
                              (NRHS-REF21327 ':INT32) (LDAB-REF21329 ':INT32)
                              (LDAFB-REF21331 ':INT32) (LDB-REF21335 ':INT32)
                              (LDX-REF21337 ':INT32) (RCOND-REF21338 ':DOUBLE)
                              (INFO-REF21343 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21325 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21326 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21327 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21329 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21331 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21335 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21337 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21338 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21343 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21328 AB) (AFB-REF21330 AFB)
                                            (S-REF21333 S) (B-REF21334 B)
                                            (X-REF21336 X) (FERR-REF21339 FERR)
                                            (BERR-REF21340 BERR)
                                            (WORK-REF21341 WORK)
                                            (RWORK-REF21342 RWORK))
      (%%ZPBSVX FACT UPLO N-REF21325 KD-REF21326 NRHS-REF21327 AB-REF21328
       LDAB-REF21329 AFB-REF21330 LDAFB-REF21331 EQUED S-REF21333 B-REF21334
       LDB-REF21335 X-REF21336 LDX-REF21337 RCOND-REF21338 FERR-REF21339
       BERR-REF21340 WORK-REF21341 RWORK-REF21342 INFO-REF21343))))

(CFFI:DEFCFUN ("zpbtf2_" %%ZPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21345 ':INT32) (KD-REF21346 ':INT32)
                              (LDAB-REF21348 ':INT32) (INFO-REF21349 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21345 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21346 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21348 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21349 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21347 AB))
      (%%ZPBTF2 UPLO N-REF21345 KD-REF21346 AB-REF21347 LDAB-REF21348
       INFO-REF21349))))

(CFFI:DEFCFUN ("zpbtrf_" %%ZPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21351 ':INT32) (KD-REF21352 ':INT32)
                              (LDAB-REF21354 ':INT32) (INFO-REF21355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21351 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21352 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21354 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21355 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21353 AB))
      (%%ZPBTRF UPLO N-REF21351 KD-REF21352 AB-REF21353 LDAB-REF21354
       INFO-REF21355))))

(CFFI:DEFCFUN ("zpbtrs_" %%ZPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21357 ':INT32) (KD-REF21358 ':INT32)
                              (NRHS-REF21359 ':INT32) (LDAB-REF21361 ':INT32)
                              (LDB-REF21363 ':INT32) (INFO-REF21364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21358 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21359 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21361 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21363 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21364 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21360 AB) (B-REF21362 B))
      (%%ZPBTRS UPLO N-REF21357 KD-REF21358 NRHS-REF21359 AB-REF21360
       LDAB-REF21361 B-REF21362 LDB-REF21363 INFO-REF21364))))

(CFFI:DEFCFUN ("zpftrf_" %%ZPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21367 ':INT32) (INFO-REF21369 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21367 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21369 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21368 A))
      (%%ZPFTRF TRANSR UPLO N-REF21367 A-REF21368 INFO-REF21369))))

(CFFI:DEFCFUN ("zpftri_" %%ZPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21372 ':INT32) (INFO-REF21374 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21372 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21374 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21373 A))
      (%%ZPFTRI TRANSR UPLO N-REF21372 A-REF21373 INFO-REF21374))))

(CFFI:DEFCFUN ("zpftrs_" %%ZPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21377 ':INT32) (NRHS-REF21378 ':INT32)
                              (LDB-REF21381 ':INT32) (INFO-REF21382 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21378 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21381 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21382 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21379 A) (B-REF21380 B))
      (%%ZPFTRS TRANSR UPLO N-REF21377 NRHS-REF21378 A-REF21379 B-REF21380
       LDB-REF21381 INFO-REF21382))))

(CFFI:DEFCFUN ("zpocon_" %%ZPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOCON (UPLO N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21384 ':INT32) (LDA-REF21386 ':INT32)
                              (ANORM-REF21387 ':DOUBLE)
                              (RCOND-REF21388 ':DOUBLE) (INFO-REF21391 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21384 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21386 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21387 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21388 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21391 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21385 A) (WORK-REF21389 WORK)
                                            (RWORK-REF21390 RWORK))
      (%%ZPOCON UPLO N-REF21384 A-REF21385 LDA-REF21386 ANORM-REF21387
       RCOND-REF21388 WORK-REF21389 RWORK-REF21390 INFO-REF21391))))

(CFFI:DEFCFUN ("zpoequ_" %%ZPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21392 ':INT32) (LDA-REF21394 ':INT32)
                              (SCOND-REF21396 ':DOUBLE)
                              (AMAX-REF21397 ':DOUBLE) (INFO-REF21398 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21394 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21396 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21397 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21398 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21393 A) (S-REF21395 S))
      (%%ZPOEQU N-REF21392 A-REF21393 LDA-REF21394 S-REF21395 SCOND-REF21396
       AMAX-REF21397 INFO-REF21398))))

(CFFI:DEFCFUN ("zpoequb_" %%ZPOEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21399 ':INT32) (LDA-REF21401 ':INT32)
                              (SCOND-REF21403 ':DOUBLE)
                              (AMAX-REF21404 ':DOUBLE) (INFO-REF21405 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21399 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21401 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21403 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21404 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21405 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21400 A) (S-REF21402 S))
      (%%ZPOEQUB N-REF21399 A-REF21400 LDA-REF21401 S-REF21402 SCOND-REF21403
       AMAX-REF21404 INFO-REF21405))))

(CFFI:DEFCFUN ("zporfs_" %%ZPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPORFS
                   (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPORFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21407 ':INT32) (NRHS-REF21408 ':INT32)
                              (LDA-REF21410 ':INT32) (LDAF-REF21412 ':INT32)
                              (LDB-REF21414 ':INT32) (LDX-REF21416 ':INT32)
                              (INFO-REF21421 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21407 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21408 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21410 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21412 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21414 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21416 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21421 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21409 A) (AF-REF21411 AF)
                                            (B-REF21413 B) (X-REF21415 X)
                                            (FERR-REF21417 FERR)
                                            (BERR-REF21418 BERR)
                                            (WORK-REF21419 WORK)
                                            (RWORK-REF21420 RWORK))
      (%%ZPORFS UPLO N-REF21407 NRHS-REF21408 A-REF21409 LDA-REF21410
       AF-REF21411 LDAF-REF21412 B-REF21413 LDB-REF21414 X-REF21415
       LDX-REF21416 FERR-REF21417 BERR-REF21418 WORK-REF21419 RWORK-REF21420
       INFO-REF21421))))

(CFFI:DEFCFUN ("zporfsx_" %%ZPORFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPORFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
                    N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPORFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21424 ':INT32) (NRHS-REF21425 ':INT32)
                              (LDA-REF21427 ':INT32) (LDAF-REF21429 ':INT32)
                              (LDB-REF21432 ':INT32) (LDX-REF21434 ':INT32)
                              (RCOND-REF21435 ':DOUBLE)
                              (N_ERR_BNDS-REF21437 ':INT32)
                              (NPARAMS-REF21440 ':INT32)
                              (INFO-REF21444 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21424 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21425 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21427 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21429 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21432 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21434 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21435 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21437 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21440 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21444 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21426 A) (AF-REF21428 AF)
                                            (S-REF21430 S) (B-REF21431 B)
                                            (X-REF21433 X) (BERR-REF21436 BERR)
                                            (ERR_BNDS_NORM-REF21438
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21439
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21441 PARAMS)
                                            (WORK-REF21442 WORK)
                                            (RWORK-REF21443 RWORK))
      (%%ZPORFSX UPLO EQUED N-REF21424 NRHS-REF21425 A-REF21426 LDA-REF21427
       AF-REF21428 LDAF-REF21429 S-REF21430 B-REF21431 LDB-REF21432 X-REF21433
       LDX-REF21434 RCOND-REF21435 BERR-REF21436 N_ERR_BNDS-REF21437
       ERR_BNDS_NORM-REF21438 ERR_BNDS_COMP-REF21439 NPARAMS-REF21440
       PARAMS-REF21441 WORK-REF21442 RWORK-REF21443 INFO-REF21444))))

(CFFI:DEFCFUN ("zposv_" %%ZPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21446 ':INT32) (NRHS-REF21447 ':INT32)
                              (LDA-REF21449 ':INT32) (LDB-REF21451 ':INT32)
                              (INFO-REF21452 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21446 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21447 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21449 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21451 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21452 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21448 A) (B-REF21450 B))
      (%%ZPOSV UPLO N-REF21446 NRHS-REF21447 A-REF21448 LDA-REF21449 B-REF21450
       LDB-REF21451 INFO-REF21452))))

(CFFI:DEFCFUN ("zposvx_" %%ZPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOSVX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21455 ':INT32) (NRHS-REF21456 ':INT32)
                              (LDA-REF21458 ':INT32) (LDAF-REF21460 ':INT32)
                              (LDB-REF21464 ':INT32) (LDX-REF21466 ':INT32)
                              (RCOND-REF21467 ':DOUBLE) (INFO-REF21472 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21455 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21456 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21458 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21460 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21464 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21466 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21467 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21472 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21457 A) (AF-REF21459 AF)
                                            (S-REF21462 S) (B-REF21463 B)
                                            (X-REF21465 X) (FERR-REF21468 FERR)
                                            (BERR-REF21469 BERR)
                                            (WORK-REF21470 WORK)
                                            (RWORK-REF21471 RWORK))
      (%%ZPOSVX FACT UPLO N-REF21455 NRHS-REF21456 A-REF21457 LDA-REF21458
       AF-REF21459 LDAF-REF21460 EQUED S-REF21462 B-REF21463 LDB-REF21464
       X-REF21465 LDX-REF21466 RCOND-REF21467 FERR-REF21468 BERR-REF21469
       WORK-REF21470 RWORK-REF21471 INFO-REF21472))))

(CFFI:DEFCFUN ("zposvxx_" %%ZPOSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS
                    PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21475 ':INT32) (NRHS-REF21476 ':INT32)
                              (LDA-REF21478 ':INT32) (LDAF-REF21480 ':INT32)
                              (LDB-REF21484 ':INT32) (LDX-REF21486 ':INT32)
                              (RCOND-REF21487 ':DOUBLE)
                              (RPVGRW-REF21488 ':DOUBLE)
                              (N_ERR_BNDS-REF21490 ':INT32)
                              (NPARAMS-REF21493 ':INT32)
                              (INFO-REF21497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21475 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21476 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21478 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21480 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21484 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21486 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21487 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF21488 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21490 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21493 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21497 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21477 A) (AF-REF21479 AF)
                                            (S-REF21482 S) (B-REF21483 B)
                                            (X-REF21485 X) (BERR-REF21489 BERR)
                                            (ERR_BNDS_NORM-REF21491
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21492
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21494 PARAMS)
                                            (WORK-REF21495 WORK)
                                            (RWORK-REF21496 RWORK))
      (%%ZPOSVXX FACT UPLO N-REF21475 NRHS-REF21476 A-REF21477 LDA-REF21478
       AF-REF21479 LDAF-REF21480 EQUED S-REF21482 B-REF21483 LDB-REF21484
       X-REF21485 LDX-REF21486 RCOND-REF21487 RPVGRW-REF21488 BERR-REF21489
       N_ERR_BNDS-REF21490 ERR_BNDS_NORM-REF21491 ERR_BNDS_COMP-REF21492
       NPARAMS-REF21493 PARAMS-REF21494 WORK-REF21495 RWORK-REF21496
       INFO-REF21497))))

(CFFI:DEFCFUN ("zpotf2_" %%ZPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21499 ':INT32) (LDA-REF21501 ':INT32)
                              (INFO-REF21502 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21499 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21501 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21502 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21500 A))
      (%%ZPOTF2 UPLO N-REF21499 A-REF21500 LDA-REF21501 INFO-REF21502))))

(CFFI:DEFCFUN ("zpotrf_" %%ZPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21504 ':INT32) (LDA-REF21506 ':INT32)
                              (INFO-REF21507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21504 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21506 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21505 A))
      (%%ZPOTRF UPLO N-REF21504 A-REF21505 LDA-REF21506 INFO-REF21507))))

(CFFI:DEFCFUN ("zpotrf2_" %%ZPOTRF2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21509 ':INT32) (LDA-REF21511 ':INT32)
                              (INFO-REF21512 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21511 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21512 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21510 A))
      (%%ZPOTRF2 UPLO N-REF21509 A-REF21510 LDA-REF21511 INFO-REF21512))))

(CFFI:DEFCFUN ("zpotri_" %%ZPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21514 ':INT32) (LDA-REF21516 ':INT32)
                              (INFO-REF21517 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21514 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21516 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21517 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21515 A))
      (%%ZPOTRI UPLO N-REF21514 A-REF21515 LDA-REF21516 INFO-REF21517))))

(CFFI:DEFCFUN ("zpotrs_" %%ZPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21519 ':INT32) (NRHS-REF21520 ':INT32)
                              (LDA-REF21522 ':INT32) (LDB-REF21524 ':INT32)
                              (INFO-REF21525 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21519 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21520 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21522 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21524 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21525 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21521 A) (B-REF21523 B))
      (%%ZPOTRS UPLO N-REF21519 NRHS-REF21520 A-REF21521 LDA-REF21522
       B-REF21523 LDB-REF21524 INFO-REF21525))))

(CFFI:DEFCFUN ("zppcon_" %%ZPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPCON (UPLO N AP ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21527 ':INT32) (ANORM-REF21529 ':DOUBLE)
                              (RCOND-REF21530 ':DOUBLE) (INFO-REF21533 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21527 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21529 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21530 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21533 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21528 AP)
                                            (WORK-REF21531 WORK)
                                            (RWORK-REF21532 RWORK))
      (%%ZPPCON UPLO N-REF21527 AP-REF21528 ANORM-REF21529 RCOND-REF21530
       WORK-REF21531 RWORK-REF21532 INFO-REF21533))))

(CFFI:DEFCFUN ("zppequ_" %%ZPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21535 ':INT32) (SCOND-REF21538 ':DOUBLE)
                              (AMAX-REF21539 ':DOUBLE) (INFO-REF21540 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21535 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21538 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21539 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21540 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21536 AP) (S-REF21537 S))
      (%%ZPPEQU UPLO N-REF21535 AP-REF21536 S-REF21537 SCOND-REF21538
       AMAX-REF21539 INFO-REF21540))))

(CFFI:DEFCFUN ("zpprfs_" %%ZPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPRFS
                   (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21542 ':INT32) (NRHS-REF21543 ':INT32)
                              (LDB-REF21547 ':INT32) (LDX-REF21549 ':INT32)
                              (INFO-REF21554 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21542 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21543 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21547 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21549 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21554 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21544 AP) (AFP-REF21545 AFP)
                                            (B-REF21546 B) (X-REF21548 X)
                                            (FERR-REF21550 FERR)
                                            (BERR-REF21551 BERR)
                                            (WORK-REF21552 WORK)
                                            (RWORK-REF21553 RWORK))
      (%%ZPPRFS UPLO N-REF21542 NRHS-REF21543 AP-REF21544 AFP-REF21545
       B-REF21546 LDB-REF21547 X-REF21548 LDX-REF21549 FERR-REF21550
       BERR-REF21551 WORK-REF21552 RWORK-REF21553 INFO-REF21554))))

(CFFI:DEFCFUN ("zppsv_" %%ZPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21556 ':INT32) (NRHS-REF21557 ':INT32)
                              (LDB-REF21560 ':INT32) (INFO-REF21561 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21556 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21557 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21560 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21561 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21558 AP) (B-REF21559 B))
      (%%ZPPSV UPLO N-REF21556 NRHS-REF21557 AP-REF21558 B-REF21559
       LDB-REF21560 INFO-REF21561))))

(CFFI:DEFCFUN ("zppsvx_" %%ZPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPSVX
                   (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21564 ':INT32) (NRHS-REF21565 ':INT32)
                              (LDB-REF21571 ':INT32) (LDX-REF21573 ':INT32)
                              (RCOND-REF21574 ':DOUBLE) (INFO-REF21579 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21564 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21565 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21571 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21573 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21574 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21579 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21566 AP) (AFP-REF21567 AFP)
                                            (S-REF21569 S) (B-REF21570 B)
                                            (X-REF21572 X) (FERR-REF21575 FERR)
                                            (BERR-REF21576 BERR)
                                            (WORK-REF21577 WORK)
                                            (RWORK-REF21578 RWORK))
      (%%ZPPSVX FACT UPLO N-REF21564 NRHS-REF21565 AP-REF21566 AFP-REF21567
       EQUED S-REF21569 B-REF21570 LDB-REF21571 X-REF21572 LDX-REF21573
       RCOND-REF21574 FERR-REF21575 BERR-REF21576 WORK-REF21577 RWORK-REF21578
       INFO-REF21579))))

(CFFI:DEFCFUN ("zpptrf_" %%ZPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21581 ':INT32) (INFO-REF21583 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21581 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21583 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21582 AP))
      (%%ZPPTRF UPLO N-REF21581 AP-REF21582 INFO-REF21583))))

(CFFI:DEFCFUN ("zpptri_" %%ZPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21585 ':INT32) (INFO-REF21587 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21585 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21587 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21586 AP))
      (%%ZPPTRI UPLO N-REF21585 AP-REF21586 INFO-REF21587))))

(CFFI:DEFCFUN ("zpptrs_" %%ZPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21589 ':INT32) (NRHS-REF21590 ':INT32)
                              (LDB-REF21593 ':INT32) (INFO-REF21594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21590 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21593 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21594 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21591 AP) (B-REF21592 B))
      (%%ZPPTRS UPLO N-REF21589 NRHS-REF21590 AP-REF21591 B-REF21592
       LDB-REF21593 INFO-REF21594))))

(CFFI:DEFCFUN ("zpstf2_" %%ZPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPSTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21596 ':INT32) (LDA-REF21598 ':INT32)
                              (RANK-REF21600 ':INT32) (TOL-REF21601 ':DOUBLE)
                              (INFO-REF21603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21596 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21598 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21600 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21601 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21603 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21597 A) (PIV-REF21599 PIV)
                                            (WORK-REF21602 WORK))
      (%%ZPSTF2 UPLO N-REF21596 A-REF21597 LDA-REF21598 PIV-REF21599
       RANK-REF21600 TOL-REF21601 WORK-REF21602 INFO-REF21603))))

(CFFI:DEFCFUN ("zpstrf_" %%ZPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPSTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21605 ':INT32) (LDA-REF21607 ':INT32)
                              (RANK-REF21609 ':INT32) (TOL-REF21610 ':DOUBLE)
                              (INFO-REF21612 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21605 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21607 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21609 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21610 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21612 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21606 A) (PIV-REF21608 PIV)
                                            (WORK-REF21611 WORK))
      (%%ZPSTRF UPLO N-REF21605 A-REF21606 LDA-REF21607 PIV-REF21608
       RANK-REF21609 TOL-REF21610 WORK-REF21611 INFO-REF21612))))

(CFFI:DEFCFUN ("zptcon_" %%ZPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTCON (N D E ANORM RCOND RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTCON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21613 ':INT32) (ANORM-REF21616 ':DOUBLE)
                              (RCOND-REF21617 ':DOUBLE) (INFO-REF21619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21616 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21617 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21619 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21614 D) (E-REF21615 E)
                                            (RWORK-REF21618 RWORK))
      (%%ZPTCON N-REF21613 D-REF21614 E-REF21615 ANORM-REF21616 RCOND-REF21617
       RWORK-REF21618 INFO-REF21619))))

(CFFI:DEFCFUN ("zpteqr_" %%ZPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21621 ':INT32) (LDZ-REF21625 ':INT32)
                              (INFO-REF21627 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21625 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21627 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21622 D) (E-REF21623 E)
                                            (Z-REF21624 Z) (WORK-REF21626 WORK))
      (%%ZPTEQR COMPZ N-REF21621 D-REF21622 E-REF21623 Z-REF21624 LDZ-REF21625
       WORK-REF21626 INFO-REF21627))))

(CFFI:DEFCFUN ("zptrfs_" %%ZPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTRFS
                   (UPLO N NRHS D E DF EF B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21629 ':INT32) (NRHS-REF21630 ':INT32)
                              (LDB-REF21636 ':INT32) (LDX-REF21638 ':INT32)
                              (INFO-REF21643 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21629 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21630 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21636 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21638 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21643 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21631 D) (E-REF21632 E)
                                            (DF-REF21633 DF) (EF-REF21634 EF)
                                            (B-REF21635 B) (X-REF21637 X)
                                            (FERR-REF21639 FERR)
                                            (BERR-REF21640 BERR)
                                            (WORK-REF21641 WORK)
                                            (RWORK-REF21642 RWORK))
      (%%ZPTRFS UPLO N-REF21629 NRHS-REF21630 D-REF21631 E-REF21632 DF-REF21633
       EF-REF21634 B-REF21635 LDB-REF21636 X-REF21637 LDX-REF21638
       FERR-REF21639 BERR-REF21640 WORK-REF21641 RWORK-REF21642
       INFO-REF21643))))

(CFFI:DEFCFUN ("zptsv_" %%ZPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21644 ':INT32) (NRHS-REF21645 ':INT32)
                              (LDB-REF21649 ':INT32) (INFO-REF21650 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21644 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21645 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21649 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21650 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21646 D) (E-REF21647 E)
                                            (B-REF21648 B))
      (%%ZPTSV N-REF21644 NRHS-REF21645 D-REF21646 E-REF21647 B-REF21648
       LDB-REF21649 INFO-REF21650))))

(CFFI:DEFCFUN ("zptsvx_" %%ZPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTSVX
                   (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21652 ':INT32) (NRHS-REF21653 ':INT32)
                              (LDB-REF21659 ':INT32) (LDX-REF21661 ':INT32)
                              (RCOND-REF21662 ':DOUBLE) (INFO-REF21667 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21652 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21653 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21659 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21661 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21662 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21667 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21654 D) (E-REF21655 E)
                                            (DF-REF21656 DF) (EF-REF21657 EF)
                                            (B-REF21658 B) (X-REF21660 X)
                                            (FERR-REF21663 FERR)
                                            (BERR-REF21664 BERR)
                                            (WORK-REF21665 WORK)
                                            (RWORK-REF21666 RWORK))
      (%%ZPTSVX FACT N-REF21652 NRHS-REF21653 D-REF21654 E-REF21655 DF-REF21656
       EF-REF21657 B-REF21658 LDB-REF21659 X-REF21660 LDX-REF21661
       RCOND-REF21662 FERR-REF21663 BERR-REF21664 WORK-REF21665 RWORK-REF21666
       INFO-REF21667))))

(CFFI:DEFCFUN ("zpttrf_" %%ZPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21668 ':INT32) (INFO-REF21671 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21668 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21671 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21669 D) (E-REF21670 E))
      (%%ZPTTRF N-REF21668 D-REF21669 E-REF21670 INFO-REF21671))))

(CFFI:DEFCFUN ("zpttrs_" %%ZPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTTRS (UPLO N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21673 ':INT32) (NRHS-REF21674 ':INT32)
                              (LDB-REF21678 ':INT32) (INFO-REF21679 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21673 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21674 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21678 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21679 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21675 D) (E-REF21676 E)
                                            (B-REF21677 B))
      (%%ZPTTRS UPLO N-REF21673 NRHS-REF21674 D-REF21675 E-REF21676 B-REF21677
       LDB-REF21678 INFO-REF21679))))

(CFFI:DEFCFUN ("zptts2_" %%ZPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IUPLO :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZPTTS2 (IUPLO N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IUPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF21680 ':INT32) (N-REF21681 ':INT32)
                              (NRHS-REF21682 ':INT32) (LDB-REF21686 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF21680 :INT32) IUPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21681 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21682 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21686 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21683 D) (E-REF21684 E)
                                            (B-REF21685 B))
      (%%ZPTTS2 IUPLO-REF21680 N-REF21681 NRHS-REF21682 D-REF21683 E-REF21684
       B-REF21685 LDB-REF21686))))

(CFFI:DEFCFUN ("zrot_" %%ZROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %ZROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21687 ':INT32) (INCX-REF21689 ':INT32)
                              (INCY-REF21691 ':INT32) (C-REF21692 ':DOUBLE)
                              (S-REF21693
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21687 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21689 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21691 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF21692 :DOUBLE) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF21693 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF21688 CX) (CY-REF21690 CY))
      (%%ZROT N-REF21687 CX-REF21688 INCX-REF21689 CY-REF21690 INCY-REF21691
       C-REF21692 S-REF21693))))

(CFFI:DEFCFUN ("zspcon_" %%ZSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21695 ':INT32) (ANORM-REF21698 ':DOUBLE)
                              (RCOND-REF21699 ':DOUBLE) (INFO-REF21701 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21695 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21698 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21699 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21701 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21696 AP)
                                            (IPIV-REF21697 IPIV)
                                            (WORK-REF21700 WORK))
      (%%ZSPCON UPLO N-REF21695 AP-REF21696 IPIV-REF21697 ANORM-REF21698
       RCOND-REF21699 WORK-REF21700 INFO-REF21701))))

(CFFI:DEFCFUN ("zspmv_" %%ZSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21703 ':INT32)
                              (ALPHA-REF21704
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF21707 ':INT32)
                              (BETA-REF21708
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF21710 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21703 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21704
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21707 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF21708
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21710 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21705 AP) (X-REF21706 X)
                                            (Y-REF21709 Y))
      (%%ZSPMV UPLO N-REF21703 ALPHA-REF21704 AP-REF21705 X-REF21706
       INCX-REF21707 BETA-REF21708 Y-REF21709 INCY-REF21710))))

(CFFI:DEFCFUN ("zspr_" %%ZSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %ZSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21712 ':INT32)
                              (ALPHA-REF21713
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF21715 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21712 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21713
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21715 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21714 X) (AP-REF21716 AP))
      (%%ZSPR UPLO N-REF21712 ALPHA-REF21713 X-REF21714 INCX-REF21715
       AP-REF21716))))

(CFFI:DEFCFUN ("zsprfs_" %%ZSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21718 ':INT32) (NRHS-REF21719 ':INT32)
                              (LDB-REF21724 ':INT32) (LDX-REF21726 ':INT32)
                              (INFO-REF21731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21718 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21719 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21724 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21726 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21731 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21720 AP) (AFP-REF21721 AFP)
                                            (IPIV-REF21722 IPIV) (B-REF21723 B)
                                            (X-REF21725 X) (FERR-REF21727 FERR)
                                            (BERR-REF21728 BERR)
                                            (WORK-REF21729 WORK)
                                            (RWORK-REF21730 RWORK))
      (%%ZSPRFS UPLO N-REF21718 NRHS-REF21719 AP-REF21720 AFP-REF21721
       IPIV-REF21722 B-REF21723 LDB-REF21724 X-REF21725 LDX-REF21726
       FERR-REF21727 BERR-REF21728 WORK-REF21729 RWORK-REF21730
       INFO-REF21731))))

(CFFI:DEFCFUN ("zspsv_" %%ZSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21733 ':INT32) (NRHS-REF21734 ':INT32)
                              (LDB-REF21738 ':INT32) (INFO-REF21739 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21734 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21738 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21739 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21735 AP)
                                            (IPIV-REF21736 IPIV) (B-REF21737 B))
      (%%ZSPSV UPLO N-REF21733 NRHS-REF21734 AP-REF21735 IPIV-REF21736
       B-REF21737 LDB-REF21738 INFO-REF21739))))

(CFFI:DEFCFUN ("zspsvx_" %%ZSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21742 ':INT32) (NRHS-REF21743 ':INT32)
                              (LDB-REF21748 ':INT32) (LDX-REF21750 ':INT32)
                              (RCOND-REF21751 ':DOUBLE) (INFO-REF21756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21743 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21748 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21750 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21751 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21756 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21744 AP) (AFP-REF21745 AFP)
                                            (IPIV-REF21746 IPIV) (B-REF21747 B)
                                            (X-REF21749 X) (FERR-REF21752 FERR)
                                            (BERR-REF21753 BERR)
                                            (WORK-REF21754 WORK)
                                            (RWORK-REF21755 RWORK))
      (%%ZSPSVX FACT UPLO N-REF21742 NRHS-REF21743 AP-REF21744 AFP-REF21745
       IPIV-REF21746 B-REF21747 LDB-REF21748 X-REF21749 LDX-REF21750
       RCOND-REF21751 FERR-REF21752 BERR-REF21753 WORK-REF21754 RWORK-REF21755
       INFO-REF21756))))

(CFFI:DEFCFUN ("zsptrf_" %%ZSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21758 ':INT32) (INFO-REF21761 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21758 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21761 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21759 AP)
                                            (IPIV-REF21760 IPIV))
      (%%ZSPTRF UPLO N-REF21758 AP-REF21759 IPIV-REF21760 INFO-REF21761))))

(CFFI:DEFCFUN ("zsptri_" %%ZSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21763 ':INT32) (INFO-REF21767 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21763 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21767 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21764 AP)
                                            (IPIV-REF21765 IPIV)
                                            (WORK-REF21766 WORK))
      (%%ZSPTRI UPLO N-REF21763 AP-REF21764 IPIV-REF21765 WORK-REF21766
       INFO-REF21767))))

(CFFI:DEFCFUN ("zsptrs_" %%ZSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21769 ':INT32) (NRHS-REF21770 ':INT32)
                              (LDB-REF21774 ':INT32) (INFO-REF21775 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21769 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21770 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21774 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21775 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21771 AP)
                                            (IPIV-REF21772 IPIV) (B-REF21773 B))
      (%%ZSPTRS UPLO N-REF21769 NRHS-REF21770 AP-REF21771 IPIV-REF21772
       B-REF21773 LDB-REF21774 INFO-REF21775))))

(CFFI:DEFCFUN ("zstedc_" %%ZSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEDC
                   (COMPZ N D E Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21777 ':INT32) (LDZ-REF21781 ':INT32)
                              (LWORK-REF21783 ':INT32)
                              (LRWORK-REF21785 ':INT32)
                              (LIWORK-REF21787 ':INT32) (INFO-REF21788 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21777 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21781 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21783 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF21785 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21787 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21788 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21778 D) (E-REF21779 E)
                                            (Z-REF21780 Z) (WORK-REF21782 WORK)
                                            (RWORK-REF21784 RWORK)
                                            (IWORK-REF21786 IWORK))
      (%%ZSTEDC COMPZ N-REF21777 D-REF21778 E-REF21779 Z-REF21780 LDZ-REF21781
       WORK-REF21782 LWORK-REF21783 RWORK-REF21784 LRWORK-REF21785
       IWORK-REF21786 LIWORK-REF21787 INFO-REF21788))))

(CFFI:DEFCFUN ("zstegr_" %%ZSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEGR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEGR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21791 ':INT32) (VL-REF21794 ':DOUBLE)
                              (VU-REF21795 ':DOUBLE) (IL-REF21796 ':INT32)
                              (IU-REF21797 ':INT32) (ABSTOL-REF21798 ':DOUBLE)
                              (M-REF21799 ':INT32) (LDZ-REF21802 ':INT32)
                              (LWORK-REF21805 ':INT32)
                              (LIWORK-REF21807 ':INT32) (INFO-REF21808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21791 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21794 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21795 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21796 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21797 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF21798 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21799 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21802 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21805 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21807 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21808 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21792 D) (E-REF21793 E)
                                            (W-REF21800 W) (Z-REF21801 Z)
                                            (ISUPPZ-REF21803 ISUPPZ)
                                            (WORK-REF21804 WORK)
                                            (IWORK-REF21806 IWORK))
      (%%ZSTEGR JOBZ RANGE N-REF21791 D-REF21792 E-REF21793 VL-REF21794
       VU-REF21795 IL-REF21796 IU-REF21797 ABSTOL-REF21798 M-REF21799
       W-REF21800 Z-REF21801 LDZ-REF21802 ISUPPZ-REF21803 WORK-REF21804
       LWORK-REF21805 IWORK-REF21806 LIWORK-REF21807 INFO-REF21808))))

(CFFI:DEFCFUN ("zstein_" %%ZSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEIN
                   (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21809 ':INT32) (M-REF21812 ':INT32)
                              (LDZ-REF21817 ':INT32) (INFO-REF21821 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21809 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21812 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21817 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21821 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21810 D) (E-REF21811 E)
                                            (W-REF21813 W)
                                            (IBLOCK-REF21814 IBLOCK)
                                            (ISPLIT-REF21815 ISPLIT)
                                            (Z-REF21816 Z) (WORK-REF21818 WORK)
                                            (IWORK-REF21819 IWORK)
                                            (IFAIL-REF21820 IFAIL))
      (%%ZSTEIN N-REF21809 D-REF21810 E-REF21811 M-REF21812 W-REF21813
       IBLOCK-REF21814 ISPLIT-REF21815 Z-REF21816 LDZ-REF21817 WORK-REF21818
       IWORK-REF21819 IFAIL-REF21820 INFO-REF21821))))

(CFFI:DEFCFUN ("zstemr_" %%ZSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NZC :POINTER)
  (ISUPPZ :POINTER)
  (TRYRAC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEMR
                   (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEMR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21824 ':INT32) (VL-REF21827 ':DOUBLE)
                              (VU-REF21828 ':DOUBLE) (IL-REF21829 ':INT32)
                              (IU-REF21830 ':INT32) (M-REF21831 ':INT32)
                              (LDZ-REF21834 ':INT32) (NZC-REF21835 ':INT32)
                              (TRYRAC-REF21837 ':INT32)
                              (LWORK-REF21839 ':INT32)
                              (LIWORK-REF21841 ':INT32) (INFO-REF21842 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21824 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21827 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21828 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21829 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21830 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21831 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21834 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF21835 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF21837 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21839 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21841 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21842 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21825 D) (E-REF21826 E)
                                            (W-REF21832 W) (Z-REF21833 Z)
                                            (ISUPPZ-REF21836 ISUPPZ)
                                            (WORK-REF21838 WORK)
                                            (IWORK-REF21840 IWORK))
      (%%ZSTEMR JOBZ RANGE N-REF21824 D-REF21825 E-REF21826 VL-REF21827
       VU-REF21828 IL-REF21829 IU-REF21830 M-REF21831 W-REF21832 Z-REF21833
       LDZ-REF21834 NZC-REF21835 ISUPPZ-REF21836 TRYRAC-REF21837 WORK-REF21838
       LWORK-REF21839 IWORK-REF21840 LIWORK-REF21841 INFO-REF21842))))

(CFFI:DEFCFUN ("zsteqr_" %%ZSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21844 ':INT32) (LDZ-REF21848 ':INT32)
                              (INFO-REF21850 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21844 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21848 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21850 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21845 D) (E-REF21846 E)
                                            (Z-REF21847 Z) (WORK-REF21849 WORK))
      (%%ZSTEQR COMPZ N-REF21844 D-REF21845 E-REF21846 Z-REF21847 LDZ-REF21848
       WORK-REF21849 INFO-REF21850))))

(CFFI:DEFCFUN ("zsycon_" %%ZSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21852 ':INT32) (LDA-REF21854 ':INT32)
                              (ANORM-REF21856 ':DOUBLE)
                              (RCOND-REF21857 ':DOUBLE) (INFO-REF21859 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21852 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21854 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21856 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21857 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21859 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21853 A) (IPIV-REF21855 IPIV)
                                            (WORK-REF21858 WORK))
      (%%ZSYCON UPLO N-REF21852 A-REF21853 LDA-REF21854 IPIV-REF21855
       ANORM-REF21856 RCOND-REF21857 WORK-REF21858 INFO-REF21859))))

(CFFI:DEFCFUN ("zsycon_3_" %%ZSYCON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21861 ':INT32) (LDA-REF21863 ':INT32)
                              (ANORM-REF21866 ':DOUBLE)
                              (RCOND-REF21867 ':DOUBLE) (INFO-REF21869 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21861 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21863 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21866 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21867 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21869 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21862 A) (E-REF21864 E)
                                            (IPIV-REF21865 IPIV)
                                            (WORK-REF21868 WORK))
      (%%ZSYCON_3 UPLO N-REF21861 A-REF21862 LDA-REF21863 E-REF21864
       IPIV-REF21865 ANORM-REF21866 RCOND-REF21867 WORK-REF21868
       INFO-REF21869))))

(CFFI:DEFCFUN ("zsycon_rook_" %%ZSYCON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21871 ':INT32) (LDA-REF21873 ':INT32)
                              (ANORM-REF21875 ':DOUBLE)
                              (RCOND-REF21876 ':DOUBLE) (INFO-REF21878 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21871 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21873 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21875 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21876 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21878 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21872 A) (IPIV-REF21874 IPIV)
                                            (WORK-REF21877 WORK))
      (%%ZSYCON_ROOK UPLO N-REF21871 A-REF21872 LDA-REF21873 IPIV-REF21874
       ANORM-REF21875 RCOND-REF21876 WORK-REF21877 INFO-REF21878))))

(CFFI:DEFCFUN ("zsyconv_" %%ZSYCONV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21881 ':INT32) (LDA-REF21883 ':INT32)
                              (INFO-REF21886 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21883 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21886 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21882 A) (IPIV-REF21884 IPIV)
                                            (E-REF21885 E))
      (%%ZSYCONV UPLO WAY N-REF21881 A-REF21882 LDA-REF21883 IPIV-REF21884
       E-REF21885 INFO-REF21886))))

(CFFI:DEFCFUN ("zsyconvf_" %%ZSYCONVF :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONVF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21889 ':INT32) (LDA-REF21891 ':INT32)
                              (INFO-REF21894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21889 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21891 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21890 A) (E-REF21892 E)
                                            (IPIV-REF21893 IPIV))
      (%%ZSYCONVF UPLO WAY N-REF21889 A-REF21890 LDA-REF21891 E-REF21892
       IPIV-REF21893 INFO-REF21894))))

(CFFI:DEFCFUN ("zsyconvf_rook_" %%ZSYCONVF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONVF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21897 ':INT32) (LDA-REF21899 ':INT32)
                              (INFO-REF21902 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21897 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21899 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21902 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21898 A) (E-REF21900 E)
                                            (IPIV-REF21901 IPIV))
      (%%ZSYCONVF_ROOK UPLO WAY N-REF21897 A-REF21898 LDA-REF21899 E-REF21900
       IPIV-REF21901 INFO-REF21902))))

(CFFI:DEFCFUN ("zsyequb_" %%ZSYEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21904 ':INT32) (LDA-REF21906 ':INT32)
                              (SCOND-REF21908 ':DOUBLE)
                              (AMAX-REF21909 ':DOUBLE) (INFO-REF21911 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21904 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21906 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21908 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21909 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21911 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21905 A) (S-REF21907 S)
                                            (WORK-REF21910 WORK))
      (%%ZSYEQUB UPLO N-REF21904 A-REF21905 LDA-REF21906 S-REF21907
       SCOND-REF21908 AMAX-REF21909 WORK-REF21910 INFO-REF21911))))

(CFFI:DEFCFUN ("zsymv_" %%ZSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21913 ':INT32)
                              (ALPHA-REF21914
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF21916 ':INT32) (INCX-REF21918 ':INT32)
                              (BETA-REF21919
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF21921 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21913 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21914
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21916 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21918 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF21919
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21921 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21915 A) (X-REF21917 X)
                                            (Y-REF21920 Y))
      (%%ZSYMV UPLO N-REF21913 ALPHA-REF21914 A-REF21915 LDA-REF21916
       X-REF21917 INCX-REF21918 BETA-REF21919 Y-REF21920 INCY-REF21921))))

(CFFI:DEFCFUN ("zsyr_" %%ZSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21923 ':INT32)
                              (ALPHA-REF21924
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF21926 ':INT32) (LDA-REF21928 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21923 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21924
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21926 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21928 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21925 X) (A-REF21927 A))
      (%%ZSYR UPLO N-REF21923 ALPHA-REF21924 X-REF21925 INCX-REF21926
       A-REF21927 LDA-REF21928))))

(CFFI:DEFCFUN ("zsyrfs_" %%ZSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYRFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21930 ':INT32) (NRHS-REF21931 ':INT32)
                              (LDA-REF21933 ':INT32) (LDAF-REF21935 ':INT32)
                              (LDB-REF21938 ':INT32) (LDX-REF21940 ':INT32)
                              (INFO-REF21945 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21931 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21933 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21935 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21938 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21940 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21945 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21932 A) (AF-REF21934 AF)
                                            (IPIV-REF21936 IPIV) (B-REF21937 B)
                                            (X-REF21939 X) (FERR-REF21941 FERR)
                                            (BERR-REF21942 BERR)
                                            (WORK-REF21943 WORK)
                                            (RWORK-REF21944 RWORK))
      (%%ZSYRFS UPLO N-REF21930 NRHS-REF21931 A-REF21932 LDA-REF21933
       AF-REF21934 LDAF-REF21935 IPIV-REF21936 B-REF21937 LDB-REF21938
       X-REF21939 LDX-REF21940 FERR-REF21941 BERR-REF21942 WORK-REF21943
       RWORK-REF21944 INFO-REF21945))))

(CFFI:DEFCFUN ("zsyrfsx_" %%ZSYRFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYRFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21948 ':INT32) (NRHS-REF21949 ':INT32)
                              (LDA-REF21951 ':INT32) (LDAF-REF21953 ':INT32)
                              (LDB-REF21957 ':INT32) (LDX-REF21959 ':INT32)
                              (RCOND-REF21960 ':DOUBLE)
                              (N_ERR_BNDS-REF21962 ':INT32)
                              (NPARAMS-REF21965 ':INT32)
                              (INFO-REF21969 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21948 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21949 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21951 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21953 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21957 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21959 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21960 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21962 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21965 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21969 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21950 A) (AF-REF21952 AF)
                                            (IPIV-REF21954 IPIV) (S-REF21955 S)
                                            (B-REF21956 B) (X-REF21958 X)
                                            (BERR-REF21961 BERR)
                                            (ERR_BNDS_NORM-REF21963
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21964
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21966 PARAMS)
                                            (WORK-REF21967 WORK)
                                            (RWORK-REF21968 RWORK))
      (%%ZSYRFSX UPLO EQUED N-REF21948 NRHS-REF21949 A-REF21950 LDA-REF21951
       AF-REF21952 LDAF-REF21953 IPIV-REF21954 S-REF21955 B-REF21956
       LDB-REF21957 X-REF21958 LDX-REF21959 RCOND-REF21960 BERR-REF21961
       N_ERR_BNDS-REF21962 ERR_BNDS_NORM-REF21963 ERR_BNDS_COMP-REF21964
       NPARAMS-REF21965 PARAMS-REF21966 WORK-REF21967 RWORK-REF21968
       INFO-REF21969))))

(CFFI:DEFCFUN ("zsysv_" %%ZSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21971 ':INT32) (NRHS-REF21972 ':INT32)
                              (LDA-REF21974 ':INT32) (LDB-REF21977 ':INT32)
                              (LWORK-REF21979 ':INT32) (INFO-REF21980 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21971 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21972 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21974 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21977 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21979 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21980 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21973 A) (IPIV-REF21975 IPIV)
                                            (B-REF21976 B) (WORK-REF21978 WORK))
      (%%ZSYSV UPLO N-REF21971 NRHS-REF21972 A-REF21973 LDA-REF21974
       IPIV-REF21975 B-REF21976 LDB-REF21977 WORK-REF21978 LWORK-REF21979
       INFO-REF21980))))

(CFFI:DEFCFUN ("zsysv_aa_" %%ZSYSV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21982 ':INT32) (NRHS-REF21983 ':INT32)
                              (LDA-REF21985 ':INT32) (LDB-REF21988 ':INT32)
                              (LWORK-REF21990 ':INT32) (INFO-REF21991 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21982 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21983 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21985 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21988 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21990 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21991 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21984 A) (IPIV-REF21986 IPIV)
                                            (B-REF21987 B) (WORK-REF21989 WORK))
      (%%ZSYSV_AA UPLO N-REF21982 NRHS-REF21983 A-REF21984 LDA-REF21985
       IPIV-REF21986 B-REF21987 LDB-REF21988 WORK-REF21989 LWORK-REF21990
       INFO-REF21991))))

(CFFI:DEFCFUN ("zsysv_aa_2stage_" %%ZSYSV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21993 ':INT32) (NRHS-REF21994 ':INT32)
                              (LDA-REF21996 ':INT32) (LTB-REF21998 ':INT32)
                              (LDB-REF22002 ':INT32) (LWORK-REF22004 ':INT32)
                              (INFO-REF22005 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21993 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21994 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21996 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF21998 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22002 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22004 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22005 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21995 A) (TB-REF21997 TB)
                                            (IPIV-REF21999 IPIV)
                                            (IPIV2-REF22000 IPIV2)
                                            (B-REF22001 B) (WORK-REF22003 WORK))
      (%%ZSYSV_AA_2STAGE UPLO N-REF21993 NRHS-REF21994 A-REF21995 LDA-REF21996
       TB-REF21997 LTB-REF21998 IPIV-REF21999 IPIV2-REF22000 B-REF22001
       LDB-REF22002 WORK-REF22003 LWORK-REF22004 INFO-REF22005))))

(CFFI:DEFCFUN ("zsysv_rk_" %%ZSYSV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22007 ':INT32) (NRHS-REF22008 ':INT32)
                              (LDA-REF22010 ':INT32) (LDB-REF22014 ':INT32)
                              (LWORK-REF22016 ':INT32) (INFO-REF22017 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22007 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22008 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22010 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22014 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22016 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22017 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22009 A) (E-REF22011 E)
                                            (IPIV-REF22012 IPIV) (B-REF22013 B)
                                            (WORK-REF22015 WORK))
      (%%ZSYSV_RK UPLO N-REF22007 NRHS-REF22008 A-REF22009 LDA-REF22010
       E-REF22011 IPIV-REF22012 B-REF22013 LDB-REF22014 WORK-REF22015
       LWORK-REF22016 INFO-REF22017))))

(CFFI:DEFCFUN ("zsysv_rook_" %%ZSYSV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22019 ':INT32) (NRHS-REF22020 ':INT32)
                              (LDA-REF22022 ':INT32) (LDB-REF22025 ':INT32)
                              (LWORK-REF22027 ':INT32) (INFO-REF22028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22019 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22020 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22022 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22025 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22027 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22028 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22021 A) (IPIV-REF22023 IPIV)
                                            (B-REF22024 B) (WORK-REF22026 WORK))
      (%%ZSYSV_ROOK UPLO N-REF22019 NRHS-REF22020 A-REF22021 LDA-REF22022
       IPIV-REF22023 B-REF22024 LDB-REF22025 WORK-REF22026 LWORK-REF22027
       INFO-REF22028))))

(CFFI:DEFCFUN ("zsysvx_" %%ZSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22031 ':INT32) (NRHS-REF22032 ':INT32)
                              (LDA-REF22034 ':INT32) (LDAF-REF22036 ':INT32)
                              (LDB-REF22039 ':INT32) (LDX-REF22041 ':INT32)
                              (RCOND-REF22042 ':DOUBLE)
                              (LWORK-REF22046 ':INT32) (INFO-REF22048 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22032 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22034 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22036 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22039 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22041 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22042 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22046 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22048 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22033 A) (AF-REF22035 AF)
                                            (IPIV-REF22037 IPIV) (B-REF22038 B)
                                            (X-REF22040 X) (FERR-REF22043 FERR)
                                            (BERR-REF22044 BERR)
                                            (WORK-REF22045 WORK)
                                            (RWORK-REF22047 RWORK))
      (%%ZSYSVX FACT UPLO N-REF22031 NRHS-REF22032 A-REF22033 LDA-REF22034
       AF-REF22035 LDAF-REF22036 IPIV-REF22037 B-REF22038 LDB-REF22039
       X-REF22040 LDX-REF22041 RCOND-REF22042 FERR-REF22043 BERR-REF22044
       WORK-REF22045 LWORK-REF22046 RWORK-REF22047 INFO-REF22048))))

(CFFI:DEFCFUN ("zsysvxx_" %%ZSYSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22051 ':INT32) (NRHS-REF22052 ':INT32)
                              (LDA-REF22054 ':INT32) (LDAF-REF22056 ':INT32)
                              (LDB-REF22061 ':INT32) (LDX-REF22063 ':INT32)
                              (RCOND-REF22064 ':DOUBLE)
                              (RPVGRW-REF22065 ':DOUBLE)
                              (N_ERR_BNDS-REF22067 ':INT32)
                              (NPARAMS-REF22070 ':INT32)
                              (INFO-REF22074 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22051 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22052 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22054 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22056 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22061 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22063 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22064 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF22065 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF22067 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF22070 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22074 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22053 A) (AF-REF22055 AF)
                                            (IPIV-REF22057 IPIV) (S-REF22059 S)
                                            (B-REF22060 B) (X-REF22062 X)
                                            (BERR-REF22066 BERR)
                                            (ERR_BNDS_NORM-REF22068
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF22069
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF22071 PARAMS)
                                            (WORK-REF22072 WORK)
                                            (RWORK-REF22073 RWORK))
      (%%ZSYSVXX FACT UPLO N-REF22051 NRHS-REF22052 A-REF22053 LDA-REF22054
       AF-REF22055 LDAF-REF22056 IPIV-REF22057 EQUED S-REF22059 B-REF22060
       LDB-REF22061 X-REF22062 LDX-REF22063 RCOND-REF22064 RPVGRW-REF22065
       BERR-REF22066 N_ERR_BNDS-REF22067 ERR_BNDS_NORM-REF22068
       ERR_BNDS_COMP-REF22069 NPARAMS-REF22070 PARAMS-REF22071 WORK-REF22072
       RWORK-REF22073 INFO-REF22074))))

(CFFI:DEFCFUN ("zsyswapr_" %%ZSYSWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %ZSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22076 ':INT32) (LDA-REF22078 ':INT32)
                              (I1-REF22079 ':INT32) (I2-REF22080 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22076 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22078 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF22079 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF22080 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22077 A))
      (%%ZSYSWAPR UPLO N-REF22076 A-REF22077 LDA-REF22078 I1-REF22079
       I2-REF22080))))

(CFFI:DEFCFUN ("zsytf2_" %%ZSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22082 ':INT32) (LDA-REF22084 ':INT32)
                              (INFO-REF22086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22082 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22084 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22086 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22083 A) (IPIV-REF22085 IPIV))
      (%%ZSYTF2 UPLO N-REF22082 A-REF22083 LDA-REF22084 IPIV-REF22085
       INFO-REF22086))))

(CFFI:DEFCFUN ("zsytf2_rk_" %%ZSYTF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22088 ':INT32) (LDA-REF22090 ':INT32)
                              (INFO-REF22093 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22090 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22093 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22089 A) (E-REF22091 E)
                                            (IPIV-REF22092 IPIV))
      (%%ZSYTF2_RK UPLO N-REF22088 A-REF22089 LDA-REF22090 E-REF22091
       IPIV-REF22092 INFO-REF22093))))

(CFFI:DEFCFUN ("zsytf2_rook_" %%ZSYTF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22095 ':INT32) (LDA-REF22097 ':INT32)
                              (INFO-REF22099 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22095 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22097 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22099 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22096 A) (IPIV-REF22098 IPIV))
      (%%ZSYTF2_ROOK UPLO N-REF22095 A-REF22096 LDA-REF22097 IPIV-REF22098
       INFO-REF22099))))

(CFFI:DEFCFUN ("zsytrf_" %%ZSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22101 ':INT32) (LDA-REF22103 ':INT32)
                              (LWORK-REF22106 ':INT32) (INFO-REF22107 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22103 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22106 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22107 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22102 A) (IPIV-REF22104 IPIV)
                                            (WORK-REF22105 WORK))
      (%%ZSYTRF UPLO N-REF22101 A-REF22102 LDA-REF22103 IPIV-REF22104
       WORK-REF22105 LWORK-REF22106 INFO-REF22107))))

(CFFI:DEFCFUN ("zsytrf_aa_" %%ZSYTRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22109 ':INT32) (LDA-REF22111 ':INT32)
                              (LWORK-REF22114 ':INT32) (INFO-REF22115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22109 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22111 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22114 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22110 A) (IPIV-REF22112 IPIV)
                                            (WORK-REF22113 WORK))
      (%%ZSYTRF_AA UPLO N-REF22109 A-REF22110 LDA-REF22111 IPIV-REF22112
       WORK-REF22113 LWORK-REF22114 INFO-REF22115))))

(CFFI:DEFCFUN ("zsytrf_aa_2stage_" %%ZSYTRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22117 ':INT32) (LDA-REF22119 ':INT32)
                              (LTB-REF22121 ':INT32) (LWORK-REF22125 ':INT32)
                              (INFO-REF22126 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22117 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22119 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF22121 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22125 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22126 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22118 A) (TB-REF22120 TB)
                                            (IPIV-REF22122 IPIV)
                                            (IPIV2-REF22123 IPIV2)
                                            (WORK-REF22124 WORK))
      (%%ZSYTRF_AA_2STAGE UPLO N-REF22117 A-REF22118 LDA-REF22119 TB-REF22120
       LTB-REF22121 IPIV-REF22122 IPIV2-REF22123 WORK-REF22124 LWORK-REF22125
       INFO-REF22126))))

(CFFI:DEFCFUN ("zsytrf_rk_" %%ZSYTRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22128 ':INT32) (LDA-REF22130 ':INT32)
                              (LWORK-REF22134 ':INT32) (INFO-REF22135 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22128 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22130 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22134 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22135 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22129 A) (E-REF22131 E)
                                            (IPIV-REF22132 IPIV)
                                            (WORK-REF22133 WORK))
      (%%ZSYTRF_RK UPLO N-REF22128 A-REF22129 LDA-REF22130 E-REF22131
       IPIV-REF22132 WORK-REF22133 LWORK-REF22134 INFO-REF22135))))

(CFFI:DEFCFUN ("zsytrf_rook_" %%ZSYTRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22137 ':INT32) (LDA-REF22139 ':INT32)
                              (LWORK-REF22142 ':INT32) (INFO-REF22143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22137 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22139 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22142 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22143 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22138 A) (IPIV-REF22140 IPIV)
                                            (WORK-REF22141 WORK))
      (%%ZSYTRF_ROOK UPLO N-REF22137 A-REF22138 LDA-REF22139 IPIV-REF22140
       WORK-REF22141 LWORK-REF22142 INFO-REF22143))))

(CFFI:DEFCFUN ("zsytri_" %%ZSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22145 ':INT32) (LDA-REF22147 ':INT32)
                              (INFO-REF22150 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22147 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22150 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22146 A) (IPIV-REF22148 IPIV)
                                            (WORK-REF22149 WORK))
      (%%ZSYTRI UPLO N-REF22145 A-REF22146 LDA-REF22147 IPIV-REF22148
       WORK-REF22149 INFO-REF22150))))

(CFFI:DEFCFUN ("zsytri2_" %%ZSYTRI2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22152 ':INT32) (LDA-REF22154 ':INT32)
                              (LWORK-REF22157 ':INT32) (INFO-REF22158 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22152 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22154 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22157 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22158 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22153 A) (IPIV-REF22155 IPIV)
                                            (WORK-REF22156 WORK))
      (%%ZSYTRI2 UPLO N-REF22152 A-REF22153 LDA-REF22154 IPIV-REF22155
       WORK-REF22156 LWORK-REF22157 INFO-REF22158))))

(CFFI:DEFCFUN ("zsytri2x_" %%ZSYTRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22160 ':INT32) (LDA-REF22162 ':INT32)
                              (NB-REF22165 ':INT32) (INFO-REF22166 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22160 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22162 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22165 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22166 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22161 A) (IPIV-REF22163 IPIV)
                                            (WORK-REF22164 WORK))
      (%%ZSYTRI2X UPLO N-REF22160 A-REF22161 LDA-REF22162 IPIV-REF22163
       WORK-REF22164 NB-REF22165 INFO-REF22166))))

(CFFI:DEFCFUN ("zsytri_3_" %%ZSYTRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22168 ':INT32) (LDA-REF22170 ':INT32)
                              (LWORK-REF22174 ':INT32) (INFO-REF22175 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22168 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22170 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22174 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22175 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22169 A) (E-REF22171 E)
                                            (IPIV-REF22172 IPIV)
                                            (WORK-REF22173 WORK))
      (%%ZSYTRI_3 UPLO N-REF22168 A-REF22169 LDA-REF22170 E-REF22171
       IPIV-REF22172 WORK-REF22173 LWORK-REF22174 INFO-REF22175))))

(CFFI:DEFCFUN ("zsytri_3x_" %%ZSYTRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22177 ':INT32) (LDA-REF22179 ':INT32)
                              (NB-REF22183 ':INT32) (INFO-REF22184 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22177 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22179 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22183 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22184 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22178 A) (E-REF22180 E)
                                            (IPIV-REF22181 IPIV)
                                            (WORK-REF22182 WORK))
      (%%ZSYTRI_3X UPLO N-REF22177 A-REF22178 LDA-REF22179 E-REF22180
       IPIV-REF22181 WORK-REF22182 NB-REF22183 INFO-REF22184))))

(CFFI:DEFCFUN ("zsytri_rook_" %%ZSYTRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22186 ':INT32) (LDA-REF22188 ':INT32)
                              (INFO-REF22191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22186 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22188 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22187 A) (IPIV-REF22189 IPIV)
                                            (WORK-REF22190 WORK))
      (%%ZSYTRI_ROOK UPLO N-REF22186 A-REF22187 LDA-REF22188 IPIV-REF22189
       WORK-REF22190 INFO-REF22191))))

(CFFI:DEFCFUN ("zsytrs_" %%ZSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22193 ':INT32) (NRHS-REF22194 ':INT32)
                              (LDA-REF22196 ':INT32) (LDB-REF22199 ':INT32)
                              (INFO-REF22200 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22193 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22194 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22196 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22199 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22200 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22195 A) (IPIV-REF22197 IPIV)
                                            (B-REF22198 B))
      (%%ZSYTRS UPLO N-REF22193 NRHS-REF22194 A-REF22195 LDA-REF22196
       IPIV-REF22197 B-REF22198 LDB-REF22199 INFO-REF22200))))

(CFFI:DEFCFUN ("zsytrs2_" %%ZSYTRS2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22202 ':INT32) (NRHS-REF22203 ':INT32)
                              (LDA-REF22205 ':INT32) (LDB-REF22208 ':INT32)
                              (INFO-REF22210 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22203 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22205 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22208 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22210 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22204 A) (IPIV-REF22206 IPIV)
                                            (B-REF22207 B) (WORK-REF22209 WORK))
      (%%ZSYTRS2 UPLO N-REF22202 NRHS-REF22203 A-REF22204 LDA-REF22205
       IPIV-REF22206 B-REF22207 LDB-REF22208 WORK-REF22209 INFO-REF22210))))

(CFFI:DEFCFUN ("zsytrs_3_" %%ZSYTRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22212 ':INT32) (NRHS-REF22213 ':INT32)
                              (LDA-REF22215 ':INT32) (LDB-REF22219 ':INT32)
                              (INFO-REF22220 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22212 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22213 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22215 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22219 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22220 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22214 A) (E-REF22216 E)
                                            (IPIV-REF22217 IPIV) (B-REF22218 B))
      (%%ZSYTRS_3 UPLO N-REF22212 NRHS-REF22213 A-REF22214 LDA-REF22215
       E-REF22216 IPIV-REF22217 B-REF22218 LDB-REF22219 INFO-REF22220))))

(CFFI:DEFCFUN ("zsytrs_aa_" %%ZSYTRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22222 ':INT32) (NRHS-REF22223 ':INT32)
                              (LDA-REF22225 ':INT32) (LDB-REF22228 ':INT32)
                              (LWORK-REF22230 ':INT32) (INFO-REF22231 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22222 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22223 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22225 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22228 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22230 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22231 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22224 A) (IPIV-REF22226 IPIV)
                                            (B-REF22227 B) (WORK-REF22229 WORK))
      (%%ZSYTRS_AA UPLO N-REF22222 NRHS-REF22223 A-REF22224 LDA-REF22225
       IPIV-REF22226 B-REF22227 LDB-REF22228 WORK-REF22229 LWORK-REF22230
       INFO-REF22231))))

(CFFI:DEFCFUN ("zsytrs_aa_2stage_" %%ZSYTRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22233 ':INT32) (NRHS-REF22234 ':INT32)
                              (LDA-REF22236 ':INT32) (LTB-REF22238 ':INT32)
                              (LDB-REF22242 ':INT32) (INFO-REF22243 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22233 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22234 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22236 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF22238 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22242 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22243 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22235 A) (TB-REF22237 TB)
                                            (IPIV-REF22239 IPIV)
                                            (IPIV2-REF22240 IPIV2)
                                            (B-REF22241 B))
      (%%ZSYTRS_AA_2STAGE UPLO N-REF22233 NRHS-REF22234 A-REF22235 LDA-REF22236
       TB-REF22237 LTB-REF22238 IPIV-REF22239 IPIV2-REF22240 B-REF22241
       LDB-REF22242 INFO-REF22243))))

(CFFI:DEFCFUN ("zsytrs_rook_" %%ZSYTRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22245 ':INT32) (NRHS-REF22246 ':INT32)
                              (LDA-REF22248 ':INT32) (LDB-REF22251 ':INT32)
                              (INFO-REF22252 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22245 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22246 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22248 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22251 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22252 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22247 A) (IPIV-REF22249 IPIV)
                                            (B-REF22250 B))
      (%%ZSYTRS_ROOK UPLO N-REF22245 NRHS-REF22246 A-REF22247 LDA-REF22248
       IPIV-REF22249 B-REF22250 LDB-REF22251 INFO-REF22252))))

(CFFI:DEFCFUN ("ztbcon_" %%ZTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTBCON (NORM UPLO DIAG N KD AB LDAB RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22256 ':INT32) (KD-REF22257 ':INT32)
                              (LDAB-REF22259 ':INT32) (RCOND-REF22260 ':DOUBLE)
                              (INFO-REF22263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22257 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22259 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22260 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22263 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22258 AB)
                                            (WORK-REF22261 WORK)
                                            (RWORK-REF22262 RWORK))
      (%%ZTBCON NORM UPLO DIAG N-REF22256 KD-REF22257 AB-REF22258 LDAB-REF22259
       RCOND-REF22260 WORK-REF22261 RWORK-REF22262 INFO-REF22263))))

(CFFI:DEFCFUN ("ztbrfs_" %%ZTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTBRFS
                   (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22267 ':INT32) (KD-REF22268 ':INT32)
                              (NRHS-REF22269 ':INT32) (LDAB-REF22271 ':INT32)
                              (LDB-REF22273 ':INT32) (LDX-REF22275 ':INT32)
                              (INFO-REF22280 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22267 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22268 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22269 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22271 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22273 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22275 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22280 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22270 AB) (B-REF22272 B)
                                            (X-REF22274 X) (FERR-REF22276 FERR)
                                            (BERR-REF22277 BERR)
                                            (WORK-REF22278 WORK)
                                            (RWORK-REF22279 RWORK))
      (%%ZTBRFS UPLO TRANS DIAG N-REF22267 KD-REF22268 NRHS-REF22269
       AB-REF22270 LDAB-REF22271 B-REF22272 LDB-REF22273 X-REF22274
       LDX-REF22275 FERR-REF22276 BERR-REF22277 WORK-REF22278 RWORK-REF22279
       INFO-REF22280))))

(CFFI:DEFCFUN ("ztbtrs_" %%ZTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTBTRS (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22284 ':INT32) (KD-REF22285 ':INT32)
                              (NRHS-REF22286 ':INT32) (LDAB-REF22288 ':INT32)
                              (LDB-REF22290 ':INT32) (INFO-REF22291 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22284 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22285 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22286 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22288 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22290 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22291 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22287 AB) (B-REF22289 B))
      (%%ZTBTRS UPLO TRANS DIAG N-REF22284 KD-REF22285 NRHS-REF22286
       AB-REF22287 LDAB-REF22288 B-REF22289 LDB-REF22290 INFO-REF22291))))

(CFFI:DEFCFUN ("ztfsm_" %%ZTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZTFSM (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22297 ':INT32) (N-REF22298 ':INT32)
                              (ALPHA-REF22299
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDB-REF22302 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22297 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22298 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF22299
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22302 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22300 A) (B-REF22301 B))
      (%%ZTFSM TRANSR SIDE UPLO TRANS DIAG M-REF22297 N-REF22298 ALPHA-REF22299
       A-REF22300 B-REF22301 LDB-REF22302))))

(CFFI:DEFCFUN ("ztftri_" %%ZTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22306 ':INT32) (INFO-REF22308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22306 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22307 A))
      (%%ZTFTRI TRANSR UPLO DIAG N-REF22306 A-REF22307 INFO-REF22308))))

(CFFI:DEFCFUN ("ztfttp_" %%ZTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22311 ':INT32) (INFO-REF22314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22311 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF22312 ARF) (AP-REF22313 AP))
      (%%ZTFTTP TRANSR UPLO N-REF22311 ARF-REF22312 AP-REF22313
       INFO-REF22314))))

(CFFI:DEFCFUN ("ztfttr_" %%ZTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22317 ':INT32) (LDA-REF22320 ':INT32)
                              (INFO-REF22321 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22317 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22320 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22321 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF22318 ARF) (A-REF22319 A))
      (%%ZTFTTR TRANSR UPLO N-REF22317 ARF-REF22318 A-REF22319 LDA-REF22320
       INFO-REF22321))))

(CFFI:DEFCFUN ("ztgevc_" %%ZTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (P :POINTER)
  (LDP :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGEVC
                   (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22325 ':INT32) (LDS-REF22327 ':INT32)
                              (LDP-REF22329 ':INT32) (LDVL-REF22331 ':INT32)
                              (LDVR-REF22333 ':INT32) (MM-REF22334 ':INT32)
                              (M-REF22335 ':INT32) (INFO-REF22338 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22325 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF22327 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF22329 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22331 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22333 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22334 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22335 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22338 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22324 SELECT)
                                            (S-REF22326 S) (P-REF22328 P)
                                            (VL-REF22330 VL) (VR-REF22332 VR)
                                            (WORK-REF22336 WORK)
                                            (RWORK-REF22337 RWORK))
      (%%ZTGEVC SIDE HOWMNY SELECT-REF22324 N-REF22325 S-REF22326 LDS-REF22327
       P-REF22328 LDP-REF22329 VL-REF22330 LDVL-REF22331 VR-REF22332
       LDVR-REF22333 MM-REF22334 M-REF22335 WORK-REF22336 RWORK-REF22337
       INFO-REF22338))))

(CFFI:DEFCFUN ("ztgex2_" %%ZTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (J1 :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGEX2 (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEX2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF22339 ':INT32) (WANTZ-REF22340 ':INT32)
                              (N-REF22341 ':INT32) (LDA-REF22343 ':INT32)
                              (LDB-REF22345 ':INT32) (LDQ-REF22347 ':INT32)
                              (LDZ-REF22349 ':INT32) (J1-REF22350 ':INT32)
                              (INFO-REF22351 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22339 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22340 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22341 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22343 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22345 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22347 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22349 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF22350 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22351 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22342 A) (B-REF22344 B)
                                            (Q-REF22346 Q) (Z-REF22348 Z))
      (%%ZTGEX2 WANTQ-REF22339 WANTZ-REF22340 N-REF22341 A-REF22342
       LDA-REF22343 B-REF22344 LDB-REF22345 Q-REF22346 LDQ-REF22347 Z-REF22348
       LDZ-REF22349 J1-REF22350 INFO-REF22351))))

(CFFI:DEFCFUN ("ztgexc_" %%ZTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGEXC
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF22352 ':INT32) (WANTZ-REF22353 ':INT32)
                              (N-REF22354 ':INT32) (LDA-REF22356 ':INT32)
                              (LDB-REF22358 ':INT32) (LDQ-REF22360 ':INT32)
                              (LDZ-REF22362 ':INT32) (IFST-REF22363 ':INT32)
                              (ILST-REF22364 ':INT32) (INFO-REF22365 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22352 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22353 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22354 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22356 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22358 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22360 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22362 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF22363 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF22364 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22365 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22355 A) (B-REF22357 B)
                                            (Q-REF22359 Q) (Z-REF22361 Z))
      (%%ZTGEXC WANTQ-REF22352 WANTZ-REF22353 N-REF22354 A-REF22355
       LDA-REF22356 B-REF22357 LDB-REF22358 Q-REF22359 LDQ-REF22360 Z-REF22361
       LDZ-REF22362 IFST-REF22363 ILST-REF22364 INFO-REF22365))))

(CFFI:DEFCFUN ("ztgsen_" %%ZTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (M :POINTER)
  (PL :POINTER)
  (PR :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSEN
                   (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHA BETA Q LDQ Z
                    LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22366 ':INT32) (WANTQ-REF22367 ':INT32)
                              (WANTZ-REF22368 ':INT32) (N-REF22370 ':INT32)
                              (LDA-REF22372 ':INT32) (LDB-REF22374 ':INT32)
                              (LDQ-REF22378 ':INT32) (LDZ-REF22380 ':INT32)
                              (M-REF22381 ':INT32) (PL-REF22382 ':DOUBLE)
                              (PR-REF22383 ':DOUBLE) (LWORK-REF22386 ':INT32)
                              (LIWORK-REF22388 ':INT32) (INFO-REF22389 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22366 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22367 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22368 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22370 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22372 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22374 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22378 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22380 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22381 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF22382 :DOUBLE) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF22383 :DOUBLE) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22386 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF22388 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22389 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22369 SELECT)
                                            (A-REF22371 A) (B-REF22373 B)
                                            (ALPHA-REF22375 ALPHA)
                                            (BETA-REF22376 BETA) (Q-REF22377 Q)
                                            (Z-REF22379 Z) (DIF-REF22384 DIF)
                                            (WORK-REF22385 WORK)
                                            (IWORK-REF22387 IWORK))
      (%%ZTGSEN IJOB-REF22366 WANTQ-REF22367 WANTZ-REF22368 SELECT-REF22369
       N-REF22370 A-REF22371 LDA-REF22372 B-REF22373 LDB-REF22374
       ALPHA-REF22375 BETA-REF22376 Q-REF22377 LDQ-REF22378 Z-REF22379
       LDZ-REF22380 M-REF22381 PL-REF22382 PR-REF22383 DIF-REF22384
       WORK-REF22385 LWORK-REF22386 IWORK-REF22387 LIWORK-REF22388
       INFO-REF22389))))

(CFFI:DEFCFUN ("ztgsja_" %%ZTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (NCYCLE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSJA
                   (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U
                    LDU V LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSJA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22393 ':INT32) (P-REF22394 ':INT32)
                              (N-REF22395 ':INT32) (K-REF22396 ':INT32)
                              (L-REF22397 ':INT32) (LDA-REF22399 ':INT32)
                              (LDB-REF22401 ':INT32) (TOLA-REF22402 ':DOUBLE)
                              (TOLB-REF22403 ':DOUBLE) (LDU-REF22407 ':INT32)
                              (LDV-REF22409 ':INT32) (LDQ-REF22411 ':INT32)
                              (NCYCLE-REF22413 ':INT32) (INFO-REF22414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22393 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22394 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22395 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22396 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22397 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22399 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22401 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF22402 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF22403 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF22407 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22409 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22411 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF22413 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22414 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22398 A) (B-REF22400 B)
                                            (ALPHA-REF22404 ALPHA)
                                            (BETA-REF22405 BETA) (U-REF22406 U)
                                            (V-REF22408 V) (Q-REF22410 Q)
                                            (WORK-REF22412 WORK))
      (%%ZTGSJA JOBU JOBV JOBQ M-REF22393 P-REF22394 N-REF22395 K-REF22396
       L-REF22397 A-REF22398 LDA-REF22399 B-REF22400 LDB-REF22401 TOLA-REF22402
       TOLB-REF22403 ALPHA-REF22404 BETA-REF22405 U-REF22406 LDU-REF22407
       V-REF22408 LDV-REF22409 Q-REF22410 LDQ-REF22411 WORK-REF22412
       NCYCLE-REF22413 INFO-REF22414))))

(CFFI:DEFCFUN ("ztgsna_" %%ZTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (DIF :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSNA
                   (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22418 ':INT32) (LDA-REF22420 ':INT32)
                              (LDB-REF22422 ':INT32) (LDVL-REF22424 ':INT32)
                              (LDVR-REF22426 ':INT32) (MM-REF22429 ':INT32)
                              (M-REF22430 ':INT32) (LWORK-REF22432 ':INT32)
                              (INFO-REF22434 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22418 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22420 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22422 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22424 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22426 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22429 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22430 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22432 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22434 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22417 SELECT)
                                            (A-REF22419 A) (B-REF22421 B)
                                            (VL-REF22423 VL) (VR-REF22425 VR)
                                            (S-REF22427 S) (DIF-REF22428 DIF)
                                            (WORK-REF22431 WORK)
                                            (IWORK-REF22433 IWORK))
      (%%ZTGSNA JOB HOWMNY SELECT-REF22417 N-REF22418 A-REF22419 LDA-REF22420
       B-REF22421 LDB-REF22422 VL-REF22423 LDVL-REF22424 VR-REF22425
       LDVR-REF22426 S-REF22427 DIF-REF22428 MM-REF22429 M-REF22430
       WORK-REF22431 LWORK-REF22432 IWORK-REF22433 INFO-REF22434))))

(CFFI:DEFCFUN ("ztgsy2_" %%ZTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSY2
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    RDSUM RDSCAL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSY2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22436 ':INT32) (M-REF22437 ':INT32)
                              (N-REF22438 ':INT32) (LDA-REF22440 ':INT32)
                              (LDB-REF22442 ':INT32) (LDC-REF22444 ':INT32)
                              (LDD-REF22446 ':INT32) (LDE-REF22448 ':INT32)
                              (LDF-REF22450 ':INT32) (SCALE-REF22451 ':DOUBLE)
                              (RDSUM-REF22452 ':DOUBLE)
                              (RDSCAL-REF22453 ':DOUBLE)
                              (INFO-REF22454 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22436 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22437 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22438 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22440 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22442 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22444 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF22446 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF22448 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF22450 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22451 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF22452 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF22453 :DOUBLE) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22454 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22439 A) (B-REF22441 B)
                                            (C-REF22443 C) (D-REF22445 D)
                                            (E-REF22447 E) (F-REF22449 F))
      (%%ZTGSY2 TRANS IJOB-REF22436 M-REF22437 N-REF22438 A-REF22439
       LDA-REF22440 B-REF22441 LDB-REF22442 C-REF22443 LDC-REF22444 D-REF22445
       LDD-REF22446 E-REF22447 LDE-REF22448 F-REF22449 LDF-REF22450
       SCALE-REF22451 RDSUM-REF22452 RDSCAL-REF22453 INFO-REF22454))))

(CFFI:DEFCFUN ("ztgsyl_" %%ZTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSYL
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    DIF WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22456 ':INT32) (M-REF22457 ':INT32)
                              (N-REF22458 ':INT32) (LDA-REF22460 ':INT32)
                              (LDB-REF22462 ':INT32) (LDC-REF22464 ':INT32)
                              (LDD-REF22466 ':INT32) (LDE-REF22468 ':INT32)
                              (LDF-REF22470 ':INT32) (SCALE-REF22471 ':DOUBLE)
                              (DIF-REF22472 ':DOUBLE) (LWORK-REF22474 ':INT32)
                              (INFO-REF22476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22456 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22457 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22458 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22460 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22462 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22464 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF22466 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF22468 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF22470 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22471 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF22472 :DOUBLE) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22474 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22476 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22459 A) (B-REF22461 B)
                                            (C-REF22463 C) (D-REF22465 D)
                                            (E-REF22467 E) (F-REF22469 F)
                                            (WORK-REF22473 WORK)
                                            (IWORK-REF22475 IWORK))
      (%%ZTGSYL TRANS IJOB-REF22456 M-REF22457 N-REF22458 A-REF22459
       LDA-REF22460 B-REF22461 LDB-REF22462 C-REF22463 LDC-REF22464 D-REF22465
       LDD-REF22466 E-REF22467 LDE-REF22468 F-REF22469 LDF-REF22470
       SCALE-REF22471 DIF-REF22472 WORK-REF22473 LWORK-REF22474 IWORK-REF22475
       INFO-REF22476))))

(CFFI:DEFCFUN ("ztpcon_" %%ZTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPCON (NORM UPLO DIAG N AP RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22480 ':INT32) (RCOND-REF22482 ':DOUBLE)
                              (INFO-REF22485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22480 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22482 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22485 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22481 AP)
                                            (WORK-REF22483 WORK)
                                            (RWORK-REF22484 RWORK))
      (%%ZTPCON NORM UPLO DIAG N-REF22480 AP-REF22481 RCOND-REF22482
       WORK-REF22483 RWORK-REF22484 INFO-REF22485))))

(CFFI:DEFCFUN ("ztplqt_" %%ZTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPLQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22486 ':INT32) (N-REF22487 ':INT32)
                              (L-REF22488 ':INT32) (MB-REF22489 ':INT32)
                              (LDA-REF22491 ':INT32) (LDB-REF22493 ':INT32)
                              (LDT-REF22495 ':INT32) (INFO-REF22497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22486 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22487 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22488 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22489 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22491 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22493 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22495 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22497 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22490 A) (B-REF22492 B)
                                            (T-REF22494 T) (WORK-REF22496 WORK))
      (%%ZTPLQT M-REF22486 N-REF22487 L-REF22488 MB-REF22489 A-REF22490
       LDA-REF22491 B-REF22492 LDB-REF22493 T-REF22494 LDT-REF22495
       WORK-REF22496 INFO-REF22497))))

(CFFI:DEFCFUN ("ztplqt2_" %%ZTPLQT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPLQT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22498 ':INT32) (N-REF22499 ':INT32)
                              (L-REF22500 ':INT32) (LDA-REF22502 ':INT32)
                              (LDB-REF22504 ':INT32) (LDT-REF22506 ':INT32)
                              (INFO-REF22507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22498 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22499 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22500 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22502 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22504 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22506 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22501 A) (B-REF22503 B)
                                            (T-REF22505 T))
      (%%ZTPLQT2 M-REF22498 N-REF22499 L-REF22500 A-REF22501 LDA-REF22502
       B-REF22503 LDB-REF22504 T-REF22505 LDT-REF22506 INFO-REF22507))))

(CFFI:DEFCFUN ("ztpmlqt_" %%ZTPMLQT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPMLQT
                   (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22510 ':INT32) (N-REF22511 ':INT32)
                              (K-REF22512 ':INT32) (L-REF22513 ':INT32)
                              (MB-REF22514 ':INT32) (LDV-REF22516 ':INT32)
                              (LDT-REF22518 ':INT32) (LDA-REF22520 ':INT32)
                              (LDB-REF22522 ':INT32) (INFO-REF22524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22510 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22511 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22512 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22513 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22514 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22516 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22518 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22520 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22522 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22515 V) (T-REF22517 T)
                                            (A-REF22519 A) (B-REF22521 B)
                                            (WORK-REF22523 WORK))
      (%%ZTPMLQT SIDE TRANS M-REF22510 N-REF22511 K-REF22512 L-REF22513
       MB-REF22514 V-REF22515 LDV-REF22516 T-REF22517 LDT-REF22518 A-REF22519
       LDA-REF22520 B-REF22521 LDB-REF22522 WORK-REF22523 INFO-REF22524))))

(CFFI:DEFCFUN ("ztpmqrt_" %%ZTPMQRT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPMQRT
                   (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22527 ':INT32) (N-REF22528 ':INT32)
                              (K-REF22529 ':INT32) (L-REF22530 ':INT32)
                              (NB-REF22531 ':INT32) (LDV-REF22533 ':INT32)
                              (LDT-REF22535 ':INT32) (LDA-REF22537 ':INT32)
                              (LDB-REF22539 ':INT32) (INFO-REF22541 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22527 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22528 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22529 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22530 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22531 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22533 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22535 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22537 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22539 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22541 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22532 V) (T-REF22534 T)
                                            (A-REF22536 A) (B-REF22538 B)
                                            (WORK-REF22540 WORK))
      (%%ZTPMQRT SIDE TRANS M-REF22527 N-REF22528 K-REF22529 L-REF22530
       NB-REF22531 V-REF22532 LDV-REF22533 T-REF22534 LDT-REF22535 A-REF22536
       LDA-REF22537 B-REF22538 LDB-REF22539 WORK-REF22540 INFO-REF22541))))

(CFFI:DEFCFUN ("ztpqrt_" %%ZTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22542 ':INT32) (N-REF22543 ':INT32)
                              (L-REF22544 ':INT32) (NB-REF22545 ':INT32)
                              (LDA-REF22547 ':INT32) (LDB-REF22549 ':INT32)
                              (LDT-REF22551 ':INT32) (INFO-REF22553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22542 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22543 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22544 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22545 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22547 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22549 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22551 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22546 A) (B-REF22548 B)
                                            (T-REF22550 T) (WORK-REF22552 WORK))
      (%%ZTPQRT M-REF22542 N-REF22543 L-REF22544 NB-REF22545 A-REF22546
       LDA-REF22547 B-REF22548 LDB-REF22549 T-REF22550 LDT-REF22551
       WORK-REF22552 INFO-REF22553))))

(CFFI:DEFCFUN ("ztpqrt2_" %%ZTPQRT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22554 ':INT32) (N-REF22555 ':INT32)
                              (L-REF22556 ':INT32) (LDA-REF22558 ':INT32)
                              (LDB-REF22560 ':INT32) (LDT-REF22562 ':INT32)
                              (INFO-REF22563 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22554 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22556 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22558 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22560 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22562 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22563 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22557 A) (B-REF22559 B)
                                            (T-REF22561 T))
      (%%ZTPQRT2 M-REF22554 N-REF22555 L-REF22556 A-REF22557 LDA-REF22558
       B-REF22559 LDB-REF22560 T-REF22561 LDT-REF22562 INFO-REF22563))))

(CFFI:DEFCFUN ("ztprfb_" %%ZTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %ZTPRFB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB
                    WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPRFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22568 ':INT32) (N-REF22569 ':INT32)
                              (K-REF22570 ':INT32) (L-REF22571 ':INT32)
                              (LDV-REF22573 ':INT32) (LDT-REF22575 ':INT32)
                              (LDA-REF22577 ':INT32) (LDB-REF22579 ':INT32)
                              (LDWORK-REF22581 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22568 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22570 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22571 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22573 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22575 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22577 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22579 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22581 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22572 V) (T-REF22574 T)
                                            (A-REF22576 A) (B-REF22578 B)
                                            (WORK-REF22580 WORK))
      (%%ZTPRFB SIDE TRANS DIRECT STOREV M-REF22568 N-REF22569 K-REF22570
       L-REF22571 V-REF22572 LDV-REF22573 T-REF22574 LDT-REF22575 A-REF22576
       LDA-REF22577 B-REF22578 LDB-REF22579 WORK-REF22580 LDWORK-REF22581))))

(CFFI:DEFCFUN ("ztprfs_" %%ZTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPRFS
                   (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22585 ':INT32) (NRHS-REF22586 ':INT32)
                              (LDB-REF22589 ':INT32) (LDX-REF22591 ':INT32)
                              (INFO-REF22596 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22585 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22586 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22589 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22591 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22596 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22587 AP) (B-REF22588 B)
                                            (X-REF22590 X) (FERR-REF22592 FERR)
                                            (BERR-REF22593 BERR)
                                            (WORK-REF22594 WORK)
                                            (RWORK-REF22595 RWORK))
      (%%ZTPRFS UPLO TRANS DIAG N-REF22585 NRHS-REF22586 AP-REF22587 B-REF22588
       LDB-REF22589 X-REF22590 LDX-REF22591 FERR-REF22592 BERR-REF22593
       WORK-REF22594 RWORK-REF22595 INFO-REF22596))))

(CFFI:DEFCFUN ("ztptri_" %%ZTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22599 ':INT32) (INFO-REF22601 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22599 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22601 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22600 AP))
      (%%ZTPTRI UPLO DIAG N-REF22599 AP-REF22600 INFO-REF22601))))

(CFFI:DEFCFUN ("ztptrs_" %%ZTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22605 ':INT32) (NRHS-REF22606 ':INT32)
                              (LDB-REF22609 ':INT32) (INFO-REF22610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22605 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22606 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22609 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22607 AP) (B-REF22608 B))
      (%%ZTPTRS UPLO TRANS DIAG N-REF22605 NRHS-REF22606 AP-REF22607 B-REF22608
       LDB-REF22609 INFO-REF22610))))

(CFFI:DEFCFUN ("ztpttf_" %%ZTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22613 ':INT32) (INFO-REF22616 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22616 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22614 AP) (ARF-REF22615 ARF))
      (%%ZTPTTF TRANSR UPLO N-REF22613 AP-REF22614 ARF-REF22615
       INFO-REF22616))))

(CFFI:DEFCFUN ("ztpttr_" %%ZTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22618 ':INT32) (LDA-REF22621 ':INT32)
                              (INFO-REF22622 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22618 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22621 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22622 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22619 AP) (A-REF22620 A))
      (%%ZTPTTR UPLO N-REF22618 AP-REF22619 A-REF22620 LDA-REF22621
       INFO-REF22622))))

(CFFI:DEFCFUN ("ztrcon_" %%ZTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRCON (NORM UPLO DIAG N A LDA RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22626 ':INT32) (LDA-REF22628 ':INT32)
                              (RCOND-REF22629 ':DOUBLE) (INFO-REF22632 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22626 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22628 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22629 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22632 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22627 A) (WORK-REF22630 WORK)
                                            (RWORK-REF22631 RWORK))
      (%%ZTRCON NORM UPLO DIAG N-REF22626 A-REF22627 LDA-REF22628
       RCOND-REF22629 WORK-REF22630 RWORK-REF22631 INFO-REF22632))))

(CFFI:DEFCFUN ("ztrevc_" %%ZTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTREVC
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22636 ':INT32) (LDT-REF22638 ':INT32)
                              (LDVL-REF22640 ':INT32) (LDVR-REF22642 ':INT32)
                              (MM-REF22643 ':INT32) (M-REF22644 ':INT32)
                              (INFO-REF22647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22636 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22638 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22640 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22642 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22643 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22644 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22647 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22635 SELECT)
                                            (T-REF22637 T) (VL-REF22639 VL)
                                            (VR-REF22641 VR)
                                            (WORK-REF22645 WORK)
                                            (RWORK-REF22646 RWORK))
      (%%ZTREVC SIDE HOWMNY SELECT-REF22635 N-REF22636 T-REF22637 LDT-REF22638
       VL-REF22639 LDVL-REF22640 VR-REF22641 LDVR-REF22642 MM-REF22643
       M-REF22644 WORK-REF22645 RWORK-REF22646 INFO-REF22647))))

(CFFI:DEFCFUN ("ztrevc3_" %%ZTREVC3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTREVC3
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK
                    RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREVC3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22651 ':INT32) (LDT-REF22653 ':INT32)
                              (LDVL-REF22655 ':INT32) (LDVR-REF22657 ':INT32)
                              (MM-REF22658 ':INT32) (M-REF22659 ':INT32)
                              (LWORK-REF22661 ':INT32)
                              (LRWORK-REF22663 ':INT32) (INFO-REF22664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22651 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22653 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22655 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22657 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22658 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22659 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22661 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22663 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22650 SELECT)
                                            (T-REF22652 T) (VL-REF22654 VL)
                                            (VR-REF22656 VR)
                                            (WORK-REF22660 WORK)
                                            (RWORK-REF22662 RWORK))
      (%%ZTREVC3 SIDE HOWMNY SELECT-REF22650 N-REF22651 T-REF22652 LDT-REF22653
       VL-REF22654 LDVL-REF22655 VR-REF22656 LDVR-REF22657 MM-REF22658
       M-REF22659 WORK-REF22660 LWORK-REF22661 RWORK-REF22662 LRWORK-REF22663
       INFO-REF22664))))

(CFFI:DEFCFUN ("ztrexc_" %%ZTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTREXC (COMPQ N T LDT Q LDQ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREXC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22666 ':INT32) (LDT-REF22668 ':INT32)
                              (LDQ-REF22670 ':INT32) (IFST-REF22671 ':INT32)
                              (ILST-REF22672 ':INT32) (INFO-REF22673 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22666 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22668 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22670 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF22671 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF22672 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22673 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF22667 T) (Q-REF22669 Q))
      (%%ZTREXC COMPQ N-REF22666 T-REF22667 LDT-REF22668 Q-REF22669
       LDQ-REF22670 IFST-REF22671 ILST-REF22672 INFO-REF22673))))

(CFFI:DEFCFUN ("ztrrfs_" %%ZTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRRFS
                   (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22677 ':INT32) (NRHS-REF22678 ':INT32)
                              (LDA-REF22680 ':INT32) (LDB-REF22682 ':INT32)
                              (LDX-REF22684 ':INT32) (INFO-REF22689 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22677 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22678 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22680 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22682 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22684 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22689 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22679 A) (B-REF22681 B)
                                            (X-REF22683 X) (FERR-REF22685 FERR)
                                            (BERR-REF22686 BERR)
                                            (WORK-REF22687 WORK)
                                            (RWORK-REF22688 RWORK))
      (%%ZTRRFS UPLO TRANS DIAG N-REF22677 NRHS-REF22678 A-REF22679
       LDA-REF22680 B-REF22681 LDB-REF22682 X-REF22683 LDX-REF22684
       FERR-REF22685 BERR-REF22686 WORK-REF22687 RWORK-REF22688
       INFO-REF22689))))

(CFFI:DEFCFUN ("ztrsen_" %%ZTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (W :POINTER)
  (M :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRSEN
                   (JOB COMPQ SELECT N T LDT Q LDQ W M S SEP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSEN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22693 ':INT32) (LDT-REF22695 ':INT32)
                              (LDQ-REF22697 ':INT32) (M-REF22699 ':INT32)
                              (S-REF22700 ':DOUBLE) (SEP-REF22701 ':DOUBLE)
                              (LWORK-REF22703 ':INT32) (INFO-REF22704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22693 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22695 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22697 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22699 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF22700 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF22701 :DOUBLE) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22703 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22704 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22692 SELECT)
                                            (T-REF22694 T) (Q-REF22696 Q)
                                            (W-REF22698 W) (WORK-REF22702 WORK))
      (%%ZTRSEN JOB COMPQ SELECT-REF22692 N-REF22693 T-REF22694 LDT-REF22695
       Q-REF22696 LDQ-REF22697 W-REF22698 M-REF22699 S-REF22700 SEP-REF22701
       WORK-REF22702 LWORK-REF22703 INFO-REF22704))))

(CFFI:DEFCFUN ("ztrsna_" %%ZTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRSNA
                   (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK
                    LDWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22708 ':INT32) (LDT-REF22710 ':INT32)
                              (LDVL-REF22712 ':INT32) (LDVR-REF22714 ':INT32)
                              (MM-REF22717 ':INT32) (M-REF22718 ':INT32)
                              (LDWORK-REF22720 ':INT32) (INFO-REF22722 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22708 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22710 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22712 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22714 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22717 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22718 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22720 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22722 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22707 SELECT)
                                            (T-REF22709 T) (VL-REF22711 VL)
                                            (VR-REF22713 VR) (S-REF22715 S)
                                            (SEP-REF22716 SEP)
                                            (WORK-REF22719 WORK)
                                            (RWORK-REF22721 RWORK))
      (%%ZTRSNA JOB HOWMNY SELECT-REF22707 N-REF22708 T-REF22709 LDT-REF22710
       VL-REF22711 LDVL-REF22712 VR-REF22713 LDVR-REF22714 S-REF22715
       SEP-REF22716 MM-REF22717 M-REF22718 WORK-REF22719 LDWORK-REF22720
       RWORK-REF22721 INFO-REF22722))))

(CFFI:DEFCFUN ("ztrsyl_" %%ZTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANA :STRING)
  (TRANB :STRING)
  (ISGN :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRSYL (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF22725 ':INT32) (M-REF22726 ':INT32)
                              (N-REF22727 ':INT32) (LDA-REF22729 ':INT32)
                              (LDB-REF22731 ':INT32) (LDC-REF22733 ':INT32)
                              (SCALE-REF22734 ':DOUBLE) (INFO-REF22735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF22725 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22726 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22727 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22729 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22731 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22733 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22734 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22735 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22728 A) (B-REF22730 B)
                                            (C-REF22732 C))
      (%%ZTRSYL TRANA TRANB ISGN-REF22725 M-REF22726 N-REF22727 A-REF22728
       LDA-REF22729 B-REF22730 LDB-REF22731 C-REF22732 LDC-REF22733
       SCALE-REF22734 INFO-REF22735))))

(CFFI:DEFCFUN ("ztrti2_" %%ZTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22738 ':INT32) (LDA-REF22740 ':INT32)
                              (INFO-REF22741 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22738 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22740 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22741 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22739 A))
      (%%ZTRTI2 UPLO DIAG N-REF22738 A-REF22739 LDA-REF22740 INFO-REF22741))))

(CFFI:DEFCFUN ("ztrtri_" %%ZTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22744 ':INT32) (LDA-REF22746 ':INT32)
                              (INFO-REF22747 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22744 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22746 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22747 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22745 A))
      (%%ZTRTRI UPLO DIAG N-REF22744 A-REF22745 LDA-REF22746 INFO-REF22747))))

(CFFI:DEFCFUN ("ztrtrs_" %%ZTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22751 ':INT32) (NRHS-REF22752 ':INT32)
                              (LDA-REF22754 ':INT32) (LDB-REF22756 ':INT32)
                              (INFO-REF22757 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22751 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22752 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22754 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22756 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22757 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22753 A) (B-REF22755 B))
      (%%ZTRTRS UPLO TRANS DIAG N-REF22751 NRHS-REF22752 A-REF22753
       LDA-REF22754 B-REF22755 LDB-REF22756 INFO-REF22757))))

(CFFI:DEFCFUN ("ztrttf_" %%ZTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22760 ':INT32) (LDA-REF22762 ':INT32)
                              (INFO-REF22764 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22760 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22762 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22764 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22761 A) (ARF-REF22763 ARF))
      (%%ZTRTTF TRANSR UPLO N-REF22760 A-REF22761 LDA-REF22762 ARF-REF22763
       INFO-REF22764))))

(CFFI:DEFCFUN ("ztrttp_" %%ZTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22766 ':INT32) (LDA-REF22768 ':INT32)
                              (INFO-REF22770 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22766 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22768 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22770 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22767 A) (AP-REF22769 AP))
      (%%ZTRTTP UPLO N-REF22766 A-REF22767 LDA-REF22768 AP-REF22769
       INFO-REF22770))))

(CFFI:DEFCFUN ("ztzrzf_" %%ZTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTZRZF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22771 ':INT32) (N-REF22772 ':INT32)
                              (LDA-REF22774 ':INT32) (LWORK-REF22777 ':INT32)
                              (INFO-REF22778 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22771 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22772 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22774 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22777 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22778 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22773 A) (TAU-REF22775 TAU)
                                            (WORK-REF22776 WORK))
      (%%ZTZRZF M-REF22771 N-REF22772 A-REF22773 LDA-REF22774 TAU-REF22775
       WORK-REF22776 LWORK-REF22777 INFO-REF22778))))

(CFFI:DEFCFUN ("zunbdb_" %%ZUNBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (TAUQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB
                   (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22
                    THETA PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22781 ':INT32) (P-REF22782 ':INT32)
                              (Q-REF22783 ':INT32) (LDX11-REF22785 ':INT32)
                              (LDX12-REF22787 ':INT32) (LDX21-REF22789 ':INT32)
                              (LDX22-REF22791 ':INT32) (LWORK-REF22799 ':INT32)
                              (INFO-REF22800 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22781 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22782 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22783 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22785 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22787 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22789 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22791 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22799 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22800 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22784 X11)
                                            (X12-REF22786 X12)
                                            (X21-REF22788 X21)
                                            (X22-REF22790 X22)
                                            (THETA-REF22792 THETA)
                                            (PHI-REF22793 PHI)
                                            (TAUP1-REF22794 TAUP1)
                                            (TAUP2-REF22795 TAUP2)
                                            (TAUQ1-REF22796 TAUQ1)
                                            (TAUQ2-REF22797 TAUQ2)
                                            (WORK-REF22798 WORK))
      (%%ZUNBDB TRANS SIGNS M-REF22781 P-REF22782 Q-REF22783 X11-REF22784
       LDX11-REF22785 X12-REF22786 LDX12-REF22787 X21-REF22788 LDX21-REF22789
       X22-REF22790 LDX22-REF22791 THETA-REF22792 PHI-REF22793 TAUP1-REF22794
       TAUP2-REF22795 TAUQ1-REF22796 TAUQ2-REF22797 WORK-REF22798
       LWORK-REF22799 INFO-REF22800))))

(CFFI:DEFCFUN ("zunbdb1_" %%ZUNBDB1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB1
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22801 ':INT32) (P-REF22802 ':INT32)
                              (Q-REF22803 ':INT32) (LDX11-REF22805 ':INT32)
                              (LDX21-REF22807 ':INT32) (LWORK-REF22814 ':INT32)
                              (INFO-REF22815 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22801 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22802 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22803 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22805 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22807 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22814 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22815 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22804 X11)
                                            (X21-REF22806 X21)
                                            (THETA-REF22808 THETA)
                                            (PHI-REF22809 PHI)
                                            (TAUP1-REF22810 TAUP1)
                                            (TAUP2-REF22811 TAUP2)
                                            (TAUQ1-REF22812 TAUQ1)
                                            (WORK-REF22813 WORK))
      (%%ZUNBDB1 M-REF22801 P-REF22802 Q-REF22803 X11-REF22804 LDX11-REF22805
       X21-REF22806 LDX21-REF22807 THETA-REF22808 PHI-REF22809 TAUP1-REF22810
       TAUP2-REF22811 TAUQ1-REF22812 WORK-REF22813 LWORK-REF22814
       INFO-REF22815))))

(CFFI:DEFCFUN ("zunbdb2_" %%ZUNBDB2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB2
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22816 ':INT32) (P-REF22817 ':INT32)
                              (Q-REF22818 ':INT32) (LDX11-REF22820 ':INT32)
                              (LDX21-REF22822 ':INT32) (LWORK-REF22829 ':INT32)
                              (INFO-REF22830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22816 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22817 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22818 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22820 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22822 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22829 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22830 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22819 X11)
                                            (X21-REF22821 X21)
                                            (THETA-REF22823 THETA)
                                            (PHI-REF22824 PHI)
                                            (TAUP1-REF22825 TAUP1)
                                            (TAUP2-REF22826 TAUP2)
                                            (TAUQ1-REF22827 TAUQ1)
                                            (WORK-REF22828 WORK))
      (%%ZUNBDB2 M-REF22816 P-REF22817 Q-REF22818 X11-REF22819 LDX11-REF22820
       X21-REF22821 LDX21-REF22822 THETA-REF22823 PHI-REF22824 TAUP1-REF22825
       TAUP2-REF22826 TAUQ1-REF22827 WORK-REF22828 LWORK-REF22829
       INFO-REF22830))))

(CFFI:DEFCFUN ("zunbdb3_" %%ZUNBDB3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB3
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22831 ':INT32) (P-REF22832 ':INT32)
                              (Q-REF22833 ':INT32) (LDX11-REF22835 ':INT32)
                              (LDX21-REF22837 ':INT32) (LWORK-REF22844 ':INT32)
                              (INFO-REF22845 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22831 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22832 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22833 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22835 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22837 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22844 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22845 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22834 X11)
                                            (X21-REF22836 X21)
                                            (THETA-REF22838 THETA)
                                            (PHI-REF22839 PHI)
                                            (TAUP1-REF22840 TAUP1)
                                            (TAUP2-REF22841 TAUP2)
                                            (TAUQ1-REF22842 TAUQ1)
                                            (WORK-REF22843 WORK))
      (%%ZUNBDB3 M-REF22831 P-REF22832 Q-REF22833 X11-REF22834 LDX11-REF22835
       X21-REF22836 LDX21-REF22837 THETA-REF22838 PHI-REF22839 TAUP1-REF22840
       TAUP2-REF22841 TAUQ1-REF22842 WORK-REF22843 LWORK-REF22844
       INFO-REF22845))))

(CFFI:DEFCFUN ("zunbdb4_" %%ZUNBDB4 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (PHANTOM :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB4
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1
                    PHANTOM WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        PHANTOM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22846 ':INT32) (P-REF22847 ':INT32)
                              (Q-REF22848 ':INT32) (LDX11-REF22850 ':INT32)
                              (LDX21-REF22852 ':INT32) (LWORK-REF22860 ':INT32)
                              (INFO-REF22861 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22846 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22847 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22848 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22850 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22852 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22860 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22861 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22849 X11)
                                            (X21-REF22851 X21)
                                            (THETA-REF22853 THETA)
                                            (PHI-REF22854 PHI)
                                            (TAUP1-REF22855 TAUP1)
                                            (TAUP2-REF22856 TAUP2)
                                            (TAUQ1-REF22857 TAUQ1)
                                            (PHANTOM-REF22858 PHANTOM)
                                            (WORK-REF22859 WORK))
      (%%ZUNBDB4 M-REF22846 P-REF22847 Q-REF22848 X11-REF22849 LDX11-REF22850
       X21-REF22851 LDX21-REF22852 THETA-REF22853 PHI-REF22854 TAUP1-REF22855
       TAUP2-REF22856 TAUQ1-REF22857 PHANTOM-REF22858 WORK-REF22859
       LWORK-REF22860 INFO-REF22861))))

(CFFI:DEFCFUN ("zunbdb5_" %%ZUNBDB5 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB5
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF22862 ':INT32) (M2-REF22863 ':INT32)
                              (N-REF22864 ':INT32) (INCX1-REF22866 ':INT32)
                              (INCX2-REF22868 ':INT32) (LDQ1-REF22870 ':INT32)
                              (LDQ2-REF22872 ':INT32) (LWORK-REF22874 ':INT32)
                              (INFO-REF22875 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF22862 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF22863 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22864 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF22866 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF22868 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF22870 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF22872 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22874 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22875 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF22865 X1) (X2-REF22867 X2)
                                            (Q1-REF22869 Q1) (Q2-REF22871 Q2)
                                            (WORK-REF22873 WORK))
      (%%ZUNBDB5 M1-REF22862 M2-REF22863 N-REF22864 X1-REF22865 INCX1-REF22866
       X2-REF22867 INCX2-REF22868 Q1-REF22869 LDQ1-REF22870 Q2-REF22871
       LDQ2-REF22872 WORK-REF22873 LWORK-REF22874 INFO-REF22875))))

(CFFI:DEFCFUN ("zunbdb6_" %%ZUNBDB6 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB6
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF22876 ':INT32) (M2-REF22877 ':INT32)
                              (N-REF22878 ':INT32) (INCX1-REF22880 ':INT32)
                              (INCX2-REF22882 ':INT32) (LDQ1-REF22884 ':INT32)
                              (LDQ2-REF22886 ':INT32) (LWORK-REF22888 ':INT32)
                              (INFO-REF22889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF22876 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF22877 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22878 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF22880 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF22882 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF22884 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF22886 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22888 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22889 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF22879 X1) (X2-REF22881 X2)
                                            (Q1-REF22883 Q1) (Q2-REF22885 Q2)
                                            (WORK-REF22887 WORK))
      (%%ZUNBDB6 M1-REF22876 M2-REF22877 N-REF22878 X1-REF22879 INCX1-REF22880
       X2-REF22881 INCX2-REF22882 Q1-REF22883 LDQ1-REF22884 Q2-REF22885
       LDQ2-REF22886 WORK-REF22887 LWORK-REF22888 INFO-REF22889))))

(CFFI:DEFCFUN ("zuncsd_" %%ZUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12
                    LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T
                    V2T LDV2T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22896 ':INT32) (P-REF22897 ':INT32)
                              (Q-REF22898 ':INT32) (LDX11-REF22900 ':INT32)
                              (LDX12-REF22902 ':INT32) (LDX21-REF22904 ':INT32)
                              (LDX22-REF22906 ':INT32) (LDU1-REF22909 ':INT32)
                              (LDU2-REF22911 ':INT32) (LDV1T-REF22913 ':INT32)
                              (LDV2T-REF22915 ':INT32) (LWORK-REF22917 ':INT32)
                              (LRWORK-REF22919 ':INT32) (INFO-REF22921 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22896 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22897 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22898 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22900 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22902 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22904 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22906 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF22909 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF22911 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF22913 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF22915 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22917 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22919 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22921 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22899 X11)
                                            (X12-REF22901 X12)
                                            (X21-REF22903 X21)
                                            (X22-REF22905 X22)
                                            (THETA-REF22907 THETA)
                                            (U1-REF22908 U1) (U2-REF22910 U2)
                                            (V1T-REF22912 V1T)
                                            (V2T-REF22914 V2T)
                                            (WORK-REF22916 WORK)
                                            (RWORK-REF22918 RWORK)
                                            (IWORK-REF22920 IWORK))
      (%%ZUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF22896 P-REF22897
       Q-REF22898 X11-REF22899 LDX11-REF22900 X12-REF22901 LDX12-REF22902
       X21-REF22903 LDX21-REF22904 X22-REF22905 LDX22-REF22906 THETA-REF22907
       U1-REF22908 LDU1-REF22909 U2-REF22910 LDU2-REF22911 V1T-REF22912
       LDV1T-REF22913 V2T-REF22914 LDV2T-REF22915 WORK-REF22916 LWORK-REF22917
       RWORK-REF22918 LRWORK-REF22919 IWORK-REF22920 INFO-REF22921))))

(CFFI:DEFCFUN ("zuncsd2by1_" %%ZUNCSD2BY1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNCSD2BY1
                   (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1
                    U2 LDU2 V1T LDV1T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNCSD2BY1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22925 ':INT32) (P-REF22926 ':INT32)
                              (Q-REF22927 ':INT32) (LDX11-REF22929 ':INT32)
                              (LDX21-REF22931 ':INT32) (LDU1-REF22934 ':INT32)
                              (LDU2-REF22936 ':INT32) (LDV1T-REF22938 ':INT32)
                              (LWORK-REF22940 ':INT32)
                              (LRWORK-REF22942 ':INT32) (INFO-REF22944 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22925 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22926 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22927 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22929 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22931 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF22934 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF22936 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF22938 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22940 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22942 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22944 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22928 X11)
                                            (X21-REF22930 X21)
                                            (THETA-REF22932 THETA)
                                            (U1-REF22933 U1) (U2-REF22935 U2)
                                            (V1T-REF22937 V1T)
                                            (WORK-REF22939 WORK)
                                            (RWORK-REF22941 RWORK)
                                            (IWORK-REF22943 IWORK))
      (%%ZUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF22925 P-REF22926 Q-REF22927
       X11-REF22928 LDX11-REF22929 X21-REF22930 LDX21-REF22931 THETA-REF22932
       U1-REF22933 LDU1-REF22934 U2-REF22935 LDU2-REF22936 V1T-REF22937
       LDV1T-REF22938 WORK-REF22939 LWORK-REF22940 RWORK-REF22941
       LRWORK-REF22942 IWORK-REF22943 INFO-REF22944))))

(CFFI:DEFCFUN ("zung2l_" %%ZUNG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNG2L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22945 ':INT32) (N-REF22946 ':INT32)
                              (K-REF22947 ':INT32) (LDA-REF22949 ':INT32)
                              (INFO-REF22952 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22945 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22946 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22947 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22949 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22952 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22948 A) (TAU-REF22950 TAU)
                                            (WORK-REF22951 WORK))
      (%%ZUNG2L M-REF22945 N-REF22946 K-REF22947 A-REF22948 LDA-REF22949
       TAU-REF22950 WORK-REF22951 INFO-REF22952))))

(CFFI:DEFCFUN ("zung2r_" %%ZUNG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNG2R)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22953 ':INT32) (N-REF22954 ':INT32)
                              (K-REF22955 ':INT32) (LDA-REF22957 ':INT32)
                              (INFO-REF22960 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22953 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22954 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22955 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22957 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22960 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22956 A) (TAU-REF22958 TAU)
                                            (WORK-REF22959 WORK))
      (%%ZUNG2R M-REF22953 N-REF22954 K-REF22955 A-REF22956 LDA-REF22957
       TAU-REF22958 WORK-REF22959 INFO-REF22960))))

(CFFI:DEFCFUN ("zungbr_" %%ZUNGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22962 ':INT32) (N-REF22963 ':INT32)
                              (K-REF22964 ':INT32) (LDA-REF22966 ':INT32)
                              (LWORK-REF22969 ':INT32) (INFO-REF22970 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22962 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22963 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22964 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22966 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22969 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22970 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22965 A) (TAU-REF22967 TAU)
                                            (WORK-REF22968 WORK))
      (%%ZUNGBR VECT M-REF22962 N-REF22963 K-REF22964 A-REF22965 LDA-REF22966
       TAU-REF22967 WORK-REF22968 LWORK-REF22969 INFO-REF22970))))

(CFFI:DEFCFUN ("zunghr_" %%ZUNGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGHR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22971 ':INT32) (ILO-REF22972 ':INT32)
                              (IHI-REF22973 ':INT32) (LDA-REF22975 ':INT32)
                              (LWORK-REF22978 ':INT32) (INFO-REF22979 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22971 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF22972 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF22973 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22975 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22978 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22979 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22974 A) (TAU-REF22976 TAU)
                                            (WORK-REF22977 WORK))
      (%%ZUNGHR N-REF22971 ILO-REF22972 IHI-REF22973 A-REF22974 LDA-REF22975
       TAU-REF22976 WORK-REF22977 LWORK-REF22978 INFO-REF22979))))

(CFFI:DEFCFUN ("zungl2_" %%ZUNGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22980 ':INT32) (N-REF22981 ':INT32)
                              (K-REF22982 ':INT32) (LDA-REF22984 ':INT32)
                              (INFO-REF22987 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22980 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22981 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22982 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22984 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22987 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22983 A) (TAU-REF22985 TAU)
                                            (WORK-REF22986 WORK))
      (%%ZUNGL2 M-REF22980 N-REF22981 K-REF22982 A-REF22983 LDA-REF22984
       TAU-REF22985 WORK-REF22986 INFO-REF22987))))

(CFFI:DEFCFUN ("zunglq_" %%ZUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22988 ':INT32) (N-REF22989 ':INT32)
                              (K-REF22990 ':INT32) (LDA-REF22992 ':INT32)
                              (LWORK-REF22995 ':INT32) (INFO-REF22996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22988 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22989 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22990 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22992 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22995 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22996 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22991 A) (TAU-REF22993 TAU)
                                            (WORK-REF22994 WORK))
      (%%ZUNGLQ M-REF22988 N-REF22989 K-REF22990 A-REF22991 LDA-REF22992
       TAU-REF22993 WORK-REF22994 LWORK-REF22995 INFO-REF22996))))

(CFFI:DEFCFUN ("zungql_" %%ZUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGQL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22997 ':INT32) (N-REF22998 ':INT32)
                              (K-REF22999 ':INT32) (LDA-REF23001 ':INT32)
                              (LWORK-REF23004 ':INT32) (INFO-REF23005 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22997 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22998 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22999 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23001 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23004 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23005 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23000 A) (TAU-REF23002 TAU)
                                            (WORK-REF23003 WORK))
      (%%ZUNGQL M-REF22997 N-REF22998 K-REF22999 A-REF23000 LDA-REF23001
       TAU-REF23002 WORK-REF23003 LWORK-REF23004 INFO-REF23005))))

(CFFI:DEFCFUN ("zungqr_" %%ZUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23006 ':INT32) (N-REF23007 ':INT32)
                              (K-REF23008 ':INT32) (LDA-REF23010 ':INT32)
                              (LWORK-REF23013 ':INT32) (INFO-REF23014 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23006 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23007 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23008 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23010 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23013 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23014 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23009 A) (TAU-REF23011 TAU)
                                            (WORK-REF23012 WORK))
      (%%ZUNGQR M-REF23006 N-REF23007 K-REF23008 A-REF23009 LDA-REF23010
       TAU-REF23011 WORK-REF23012 LWORK-REF23013 INFO-REF23014))))

(CFFI:DEFCFUN ("zungr2_" %%ZUNGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23015 ':INT32) (N-REF23016 ':INT32)
                              (K-REF23017 ':INT32) (LDA-REF23019 ':INT32)
                              (INFO-REF23022 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23015 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23016 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23017 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23019 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23022 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23018 A) (TAU-REF23020 TAU)
                                            (WORK-REF23021 WORK))
      (%%ZUNGR2 M-REF23015 N-REF23016 K-REF23017 A-REF23018 LDA-REF23019
       TAU-REF23020 WORK-REF23021 INFO-REF23022))))

(CFFI:DEFCFUN ("zungrq_" %%ZUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGRQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23023 ':INT32) (N-REF23024 ':INT32)
                              (K-REF23025 ':INT32) (LDA-REF23027 ':INT32)
                              (LWORK-REF23030 ':INT32) (INFO-REF23031 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23023 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23024 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23025 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23027 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23030 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23031 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23026 A) (TAU-REF23028 TAU)
                                            (WORK-REF23029 WORK))
      (%%ZUNGRQ M-REF23023 N-REF23024 K-REF23025 A-REF23026 LDA-REF23027
       TAU-REF23028 WORK-REF23029 LWORK-REF23030 INFO-REF23031))))

(CFFI:DEFCFUN ("zungtr_" %%ZUNGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23033 ':INT32) (LDA-REF23035 ':INT32)
                              (LWORK-REF23038 ':INT32) (INFO-REF23039 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23033 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23035 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23038 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23039 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23034 A) (TAU-REF23036 TAU)
                                            (WORK-REF23037 WORK))
      (%%ZUNGTR UPLO N-REF23033 A-REF23034 LDA-REF23035 TAU-REF23036
       WORK-REF23037 LWORK-REF23038 INFO-REF23039))))

(CFFI:DEFCFUN ("zungtsqr_" %%ZUNGTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGTSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23040 ':INT32) (N-REF23041 ':INT32)
                              (MB-REF23042 ':INT32) (NB-REF23043 ':INT32)
                              (LDA-REF23045 ':INT32) (LDT-REF23047 ':INT32)
                              (LWORK-REF23049 ':INT32) (INFO-REF23050 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23040 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23041 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF23042 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF23043 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23045 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23047 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23049 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23050 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23044 A) (T-REF23046 T)
                                            (WORK-REF23048 WORK))
      (%%ZUNGTSQR M-REF23040 N-REF23041 MB-REF23042 NB-REF23043 A-REF23044
       LDA-REF23045 T-REF23046 LDT-REF23047 WORK-REF23048 LWORK-REF23049
       INFO-REF23050))))

(CFFI:DEFCFUN ("zunhr_col_" %%ZUNHR_COL :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNHR_COL (M N NB A LDA T LDT D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNHR_COL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23051 ':INT32) (N-REF23052 ':INT32)
                              (NB-REF23053 ':INT32) (LDA-REF23055 ':INT32)
                              (LDT-REF23057 ':INT32) (INFO-REF23059 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23051 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23052 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF23053 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23055 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23057 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23059 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23054 A) (T-REF23056 T)
                                            (D-REF23058 D))
      (%%ZUNHR_COL M-REF23051 N-REF23052 NB-REF23053 A-REF23054 LDA-REF23055
       T-REF23056 LDT-REF23057 D-REF23058 INFO-REF23059))))

(CFFI:DEFCFUN ("zunm22_" %%ZUNM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNM22 (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNM22)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23062 ':INT32) (N-REF23063 ':INT32)
                              (N1-REF23064 ':INT32) (N2-REF23065 ':INT32)
                              (LDQ-REF23067 ':INT32) (LDC-REF23069 ':INT32)
                              (LWORK-REF23071 ':INT32) (INFO-REF23072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23062 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23063 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF23064 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF23065 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23067 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23069 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23071 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF23066 Q) (C-REF23068 C)
                                            (WORK-REF23070 WORK))
      (%%ZUNM22 SIDE TRANS M-REF23062 N-REF23063 N1-REF23064 N2-REF23065
       Q-REF23066 LDQ-REF23067 C-REF23068 LDC-REF23069 WORK-REF23070
       LWORK-REF23071 INFO-REF23072))))

(CFFI:DEFCFUN ("zunm2l_" %%ZUNM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNM2L)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23075 ':INT32) (N-REF23076 ':INT32)
                              (K-REF23077 ':INT32) (LDA-REF23079 ':INT32)
                              (LDC-REF23082 ':INT32) (INFO-REF23084 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23075 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23076 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23077 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23079 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23082 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23084 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23078 A) (TAU-REF23080 TAU)
                                            (C-REF23081 C) (WORK-REF23083 WORK))
      (%%ZUNM2L SIDE TRANS M-REF23075 N-REF23076 K-REF23077 A-REF23078
       LDA-REF23079 TAU-REF23080 C-REF23081 LDC-REF23082 WORK-REF23083
       INFO-REF23084))))

(CFFI:DEFCFUN ("zunm2r_" %%ZUNM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNM2R)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23087 ':INT32) (N-REF23088 ':INT32)
                              (K-REF23089 ':INT32) (LDA-REF23091 ':INT32)
                              (LDC-REF23094 ':INT32) (INFO-REF23096 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23087 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23089 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23091 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23094 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23096 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23090 A) (TAU-REF23092 TAU)
                                            (C-REF23093 C) (WORK-REF23095 WORK))
      (%%ZUNM2R SIDE TRANS M-REF23087 N-REF23088 K-REF23089 A-REF23090
       LDA-REF23091 TAU-REF23092 C-REF23093 LDC-REF23094 WORK-REF23095
       INFO-REF23096))))

(CFFI:DEFCFUN ("zunmbr_" %%ZUNMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMBR
                   (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23100 ':INT32) (N-REF23101 ':INT32)
                              (K-REF23102 ':INT32) (LDA-REF23104 ':INT32)
                              (LDC-REF23107 ':INT32) (LWORK-REF23109 ':INT32)
                              (INFO-REF23110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23100 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23102 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23104 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23107 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23109 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23103 A) (TAU-REF23105 TAU)
                                            (C-REF23106 C) (WORK-REF23108 WORK))
      (%%ZUNMBR VECT SIDE TRANS M-REF23100 N-REF23101 K-REF23102 A-REF23103
       LDA-REF23104 TAU-REF23105 C-REF23106 LDC-REF23107 WORK-REF23108
       LWORK-REF23109 INFO-REF23110))))

(CFFI:DEFCFUN ("zunmhr_" %%ZUNMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMHR
                   (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMHR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23113 ':INT32) (N-REF23114 ':INT32)
                              (ILO-REF23115 ':INT32) (IHI-REF23116 ':INT32)
                              (LDA-REF23118 ':INT32) (LDC-REF23121 ':INT32)
                              (LWORK-REF23123 ':INT32) (INFO-REF23124 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23113 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23114 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23115 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23116 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23118 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23121 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23123 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23124 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23117 A) (TAU-REF23119 TAU)
                                            (C-REF23120 C) (WORK-REF23122 WORK))
      (%%ZUNMHR SIDE TRANS M-REF23113 N-REF23114 ILO-REF23115 IHI-REF23116
       A-REF23117 LDA-REF23118 TAU-REF23119 C-REF23120 LDC-REF23121
       WORK-REF23122 LWORK-REF23123 INFO-REF23124))))

(CFFI:DEFCFUN ("zunml2_" %%ZUNML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNML2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23127 ':INT32) (N-REF23128 ':INT32)
                              (K-REF23129 ':INT32) (LDA-REF23131 ':INT32)
                              (LDC-REF23134 ':INT32) (INFO-REF23136 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23127 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23128 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23129 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23131 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23134 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23136 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23130 A) (TAU-REF23132 TAU)
                                            (C-REF23133 C) (WORK-REF23135 WORK))
      (%%ZUNML2 SIDE TRANS M-REF23127 N-REF23128 K-REF23129 A-REF23130
       LDA-REF23131 TAU-REF23132 C-REF23133 LDC-REF23134 WORK-REF23135
       INFO-REF23136))))

(CFFI:DEFCFUN ("zunmlq_" %%ZUNMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMLQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23139 ':INT32) (N-REF23140 ':INT32)
                              (K-REF23141 ':INT32) (LDA-REF23143 ':INT32)
                              (LDC-REF23146 ':INT32) (LWORK-REF23148 ':INT32)
                              (INFO-REF23149 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23139 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23141 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23143 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23146 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23148 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23149 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23142 A) (TAU-REF23144 TAU)
                                            (C-REF23145 C) (WORK-REF23147 WORK))
      (%%ZUNMLQ SIDE TRANS M-REF23139 N-REF23140 K-REF23141 A-REF23142
       LDA-REF23143 TAU-REF23144 C-REF23145 LDC-REF23146 WORK-REF23147
       LWORK-REF23148 INFO-REF23149))))

(CFFI:DEFCFUN ("zunmql_" %%ZUNMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMQL (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMQL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23152 ':INT32) (N-REF23153 ':INT32)
                              (K-REF23154 ':INT32) (LDA-REF23156 ':INT32)
                              (LDC-REF23159 ':INT32) (LWORK-REF23161 ':INT32)
                              (INFO-REF23162 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23152 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23153 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23154 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23156 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23159 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23161 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23162 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23155 A) (TAU-REF23157 TAU)
                                            (C-REF23158 C) (WORK-REF23160 WORK))
      (%%ZUNMQL SIDE TRANS M-REF23152 N-REF23153 K-REF23154 A-REF23155
       LDA-REF23156 TAU-REF23157 C-REF23158 LDC-REF23159 WORK-REF23160
       LWORK-REF23161 INFO-REF23162))))

(CFFI:DEFCFUN ("zunmqr_" %%ZUNMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMQR (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23165 ':INT32) (N-REF23166 ':INT32)
                              (K-REF23167 ':INT32) (LDA-REF23169 ':INT32)
                              (LDC-REF23172 ':INT32) (LWORK-REF23174 ':INT32)
                              (INFO-REF23175 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23165 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23167 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23169 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23172 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23174 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23175 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23168 A) (TAU-REF23170 TAU)
                                            (C-REF23171 C) (WORK-REF23173 WORK))
      (%%ZUNMQR SIDE TRANS M-REF23165 N-REF23166 K-REF23167 A-REF23168
       LDA-REF23169 TAU-REF23170 C-REF23171 LDC-REF23172 WORK-REF23173
       LWORK-REF23174 INFO-REF23175))))

(CFFI:DEFCFUN ("zunmr2_" %%ZUNMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23178 ':INT32) (N-REF23179 ':INT32)
                              (K-REF23180 ':INT32) (LDA-REF23182 ':INT32)
                              (LDC-REF23185 ':INT32) (INFO-REF23187 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23178 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23180 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23182 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23185 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23187 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23181 A) (TAU-REF23183 TAU)
                                            (C-REF23184 C) (WORK-REF23186 WORK))
      (%%ZUNMR2 SIDE TRANS M-REF23178 N-REF23179 K-REF23180 A-REF23181
       LDA-REF23182 TAU-REF23183 C-REF23184 LDC-REF23185 WORK-REF23186
       INFO-REF23187))))

(CFFI:DEFCFUN ("zunmr3_" %%ZUNMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMR3 (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMR3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23190 ':INT32) (N-REF23191 ':INT32)
                              (K-REF23192 ':INT32) (L-REF23193 ':INT32)
                              (LDA-REF23195 ':INT32) (LDC-REF23198 ':INT32)
                              (INFO-REF23200 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23190 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23191 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23192 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23193 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23195 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23198 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23200 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23194 A) (TAU-REF23196 TAU)
                                            (C-REF23197 C) (WORK-REF23199 WORK))
      (%%ZUNMR3 SIDE TRANS M-REF23190 N-REF23191 K-REF23192 L-REF23193
       A-REF23194 LDA-REF23195 TAU-REF23196 C-REF23197 LDC-REF23198
       WORK-REF23199 INFO-REF23200))))

(CFFI:DEFCFUN ("zunmrq_" %%ZUNMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMRQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMRQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23203 ':INT32) (N-REF23204 ':INT32)
                              (K-REF23205 ':INT32) (LDA-REF23207 ':INT32)
                              (LDC-REF23210 ':INT32) (LWORK-REF23212 ':INT32)
                              (INFO-REF23213 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23203 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23204 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23205 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23207 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23210 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23212 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23213 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23206 A) (TAU-REF23208 TAU)
                                            (C-REF23209 C) (WORK-REF23211 WORK))
      (%%ZUNMRQ SIDE TRANS M-REF23203 N-REF23204 K-REF23205 A-REF23206
       LDA-REF23207 TAU-REF23208 C-REF23209 LDC-REF23210 WORK-REF23211
       LWORK-REF23212 INFO-REF23213))))

(CFFI:DEFCFUN ("zunmrz_" %%ZUNMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMRZ (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMRZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23216 ':INT32) (N-REF23217 ':INT32)
                              (K-REF23218 ':INT32) (L-REF23219 ':INT32)
                              (LDA-REF23221 ':INT32) (LDC-REF23224 ':INT32)
                              (LWORK-REF23226 ':INT32) (INFO-REF23227 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23216 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23218 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23219 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23224 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23226 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23227 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23220 A) (TAU-REF23222 TAU)
                                            (C-REF23223 C) (WORK-REF23225 WORK))
      (%%ZUNMRZ SIDE TRANS M-REF23216 N-REF23217 K-REF23218 L-REF23219
       A-REF23220 LDA-REF23221 TAU-REF23222 C-REF23223 LDC-REF23224
       WORK-REF23225 LWORK-REF23226 INFO-REF23227))))

(CFFI:DEFCFUN ("zunmtr_" %%ZUNMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMTR
                   (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23231 ':INT32) (N-REF23232 ':INT32)
                              (LDA-REF23234 ':INT32) (LDC-REF23237 ':INT32)
                              (LWORK-REF23239 ':INT32) (INFO-REF23240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23231 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23234 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23237 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23239 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23240 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23233 A) (TAU-REF23235 TAU)
                                            (C-REF23236 C) (WORK-REF23238 WORK))
      (%%ZUNMTR SIDE UPLO TRANS M-REF23231 N-REF23232 A-REF23233 LDA-REF23234
       TAU-REF23235 C-REF23236 LDC-REF23237 WORK-REF23238 LWORK-REF23239
       INFO-REF23240))))

(CFFI:DEFCFUN ("zupgtr_" %%ZUPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUPGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23242 ':INT32) (LDQ-REF23246 ':INT32)
                              (INFO-REF23248 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23242 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23246 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23248 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23243 AP) (TAU-REF23244 TAU)
                                            (Q-REF23245 Q) (WORK-REF23247 WORK))
      (%%ZUPGTR UPLO N-REF23242 AP-REF23243 TAU-REF23244 Q-REF23245
       LDQ-REF23246 WORK-REF23247 INFO-REF23248))))

(CFFI:DEFCFUN ("zupmtr_" %%ZUPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUPMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23252 ':INT32) (N-REF23253 ':INT32)
                              (LDC-REF23257 ':INT32) (INFO-REF23259 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23252 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23253 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23257 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23259 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23254 AP) (TAU-REF23255 TAU)
                                            (C-REF23256 C) (WORK-REF23258 WORK))
      (%%ZUPMTR SIDE UPLO TRANS M-REF23252 N-REF23253 AP-REF23254 TAU-REF23255
       C-REF23256 LDC-REF23257 WORK-REF23258 INFO-REF23259))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%ZLANHS %ZLANHS %%ZLANHT %ZLANHT %%ZLANSB %ZLANSB
  %%ZLANSP %ZLANSP %%ZLANSY %ZLANSY %%ZLANTB %ZLANTB %%ZLANTP %ZLANTP %%ZLANTR
  %ZLANTR %%ZLAPLL %ZLAPLL %%ZLAPMR %ZLAPMR %%ZLAPMT %ZLAPMT %%ZLAQGB %ZLAQGB
  %%ZLAQGE %ZLAQGE %%ZLAQHB %ZLAQHB %%ZLAQHE %ZLAQHE %%ZLAQHP %ZLAQHP %%ZLAQP2
  %ZLAQP2 %%ZLAQPS %ZLAQPS %%ZLAQR0 %ZLAQR0 %%ZLAQR1 %ZLAQR1 %%ZLAQR2 %ZLAQR2
  %%ZLAQR3 %ZLAQR3 %%ZLAQR4 %ZLAQR4 %%ZLAQR5 %ZLAQR5 %%ZLAQSB %ZLAQSB %%ZLAQSP
  %ZLAQSP %%ZLAQSY %ZLAQSY %%ZLAR1V %ZLAR1V %%ZLAR2V %ZLAR2V %%ZLARCM %ZLARCM
  %%ZLARF %ZLARF %%ZLARFB %ZLARFB %%ZLARFG %ZLARFG %%ZLARFGP %ZLARFGP %%ZLARFT
  %ZLARFT %%ZLARFX %ZLARFX %%ZLARFY %ZLARFY %%ZLARGV %ZLARGV %%ZLARNV %ZLARNV
  %%ZLARRV %ZLARRV %%ZLARSCL2 %ZLARSCL2 %%ZLARTG %ZLARTG %%ZLARTV %ZLARTV
  %%ZLARZ %ZLARZ %%ZLARZB %ZLARZB %%ZLARZT %ZLARZT %%ZLASCL %ZLASCL %%ZLASCL2
  %ZLASCL2 %%ZLASET %ZLASET %%ZLASR %ZLASR %%ZLASSQ %ZLASSQ %%ZLASWLQ %ZLASWLQ
  %%ZLASWP %ZLASWP %%ZLASYF %ZLASYF %%ZLASYF_AA %ZLASYF_AA %%ZLASYF_RK
  %ZLASYF_RK %%ZLASYF_ROOK %ZLASYF_ROOK %%ZLAT2C %ZLAT2C %%ZLATBS %ZLATBS
  %%ZLATDF %ZLATDF %%ZLATPS %ZLATPS %%ZLATRD %ZLATRD %%ZLATRS %ZLATRS %%ZLATRZ
  %ZLATRZ %%ZLATSQR %ZLATSQR %%ZLAUNHR_COL_GETRFNP %ZLAUNHR_COL_GETRFNP
  %%ZLAUNHR_COL_GETRFNP2 %ZLAUNHR_COL_GETRFNP2 %%ZLAUU2 %ZLAUU2 %%ZLAUUM
  %ZLAUUM %%ZPBCON %ZPBCON %%ZPBEQU %ZPBEQU %%ZPBRFS %ZPBRFS %%ZPBSTF %ZPBSTF
  %%ZPBSV %ZPBSV %%ZPBSVX %ZPBSVX %%ZPBTF2 %ZPBTF2 %%ZPBTRF %ZPBTRF %%ZPBTRS
  %ZPBTRS %%ZPFTRF %ZPFTRF %%ZPFTRI %ZPFTRI %%ZPFTRS %ZPFTRS %%ZPOCON %ZPOCON
  %%ZPOEQU %ZPOEQU %%ZPOEQUB %ZPOEQUB %%ZPORFS %ZPORFS %%ZPORFSX %ZPORFSX
  %%ZPOSV %ZPOSV %%ZPOSVX %ZPOSVX %%ZPOSVXX %ZPOSVXX %%ZPOTF2 %ZPOTF2 %%ZPOTRF
  %ZPOTRF %%ZPOTRF2 %ZPOTRF2 %%ZPOTRI %ZPOTRI %%ZPOTRS %ZPOTRS %%ZPPCON %ZPPCON
  %%ZPPEQU %ZPPEQU %%ZPPRFS %ZPPRFS %%ZPPSV %ZPPSV %%ZPPSVX %ZPPSVX %%ZPPTRF
  %ZPPTRF %%ZPPTRI %ZPPTRI %%ZPPTRS %ZPPTRS %%ZPSTF2 %ZPSTF2 %%ZPSTRF %ZPSTRF
  %%ZPTCON %ZPTCON %%ZPTEQR %ZPTEQR %%ZPTRFS %ZPTRFS %%ZPTSV %ZPTSV %%ZPTSVX
  %ZPTSVX %%ZPTTRF %ZPTTRF %%ZPTTRS %ZPTTRS %%ZPTTS2 %ZPTTS2 %%ZROT %ZROT
  %%ZSPCON %ZSPCON %%ZSPMV %ZSPMV %%ZSPR %ZSPR %%ZSPRFS %ZSPRFS %%ZSPSV %ZSPSV
  %%ZSPSVX %ZSPSVX %%ZSPTRF %ZSPTRF %%ZSPTRI %ZSPTRI %%ZSPTRS %ZSPTRS %%ZSTEDC
  %ZSTEDC %%ZSTEGR %ZSTEGR %%ZSTEIN %ZSTEIN %%ZSTEMR %ZSTEMR %%ZSTEQR %ZSTEQR
  %%ZSYCON %ZSYCON %%ZSYCON_3 %ZSYCON_3 %%ZSYCON_ROOK %ZSYCON_ROOK %%ZSYCONV
  %ZSYCONV %%ZSYCONVF %ZSYCONVF %%ZSYCONVF_ROOK %ZSYCONVF_ROOK %%ZSYEQUB
  %ZSYEQUB %%ZSYMV %ZSYMV %%ZSYR %ZSYR %%ZSYRFS %ZSYRFS %%ZSYRFSX %ZSYRFSX
  %%ZSYSV %ZSYSV %%ZSYSV_AA %ZSYSV_AA %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE
  %%ZSYSV_RK %ZSYSV_RK %%ZSYSV_ROOK %ZSYSV_ROOK %%ZSYSVX %ZSYSVX %%ZSYSVXX
  %ZSYSVXX %%ZSYSWAPR %ZSYSWAPR %%ZSYTF2 %ZSYTF2 %%ZSYTF2_RK %ZSYTF2_RK
  %%ZSYTF2_ROOK %ZSYTF2_ROOK %%ZSYTRF %ZSYTRF %%ZSYTRF_AA %ZSYTRF_AA
  %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE %%ZSYTRF_RK %ZSYTRF_RK %%ZSYTRF_ROOK
  %ZSYTRF_ROOK %%ZSYTRI %ZSYTRI %%ZSYTRI2 %ZSYTRI2 %%ZSYTRI2X %ZSYTRI2X
  %%ZSYTRI_3 %ZSYTRI_3 %%ZSYTRI_3X %ZSYTRI_3X %%ZSYTRI_ROOK %ZSYTRI_ROOK
  %%ZSYTRS %ZSYTRS %%ZSYTRS2 %ZSYTRS2 %%ZSYTRS_3 %ZSYTRS_3 %%ZSYTRS_AA
  %ZSYTRS_AA %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE %%ZSYTRS_ROOK %ZSYTRS_ROOK
  %%ZTBCON %ZTBCON %%ZTBRFS %ZTBRFS %%ZTBTRS %ZTBTRS %%ZTFSM %ZTFSM %%ZTFTRI
  %ZTFTRI %%ZTFTTP %ZTFTTP %%ZTFTTR %ZTFTTR %%ZTGEVC %ZTGEVC %%ZTGEX2 %ZTGEX2
  %%ZTGEXC %ZTGEXC %%ZTGSEN %ZTGSEN %%ZTGSJA %ZTGSJA %%ZTGSNA %ZTGSNA %%ZTGSY2
  %ZTGSY2 %%ZTGSYL %ZTGSYL %%ZTPCON %ZTPCON %%ZTPLQT %ZTPLQT %%ZTPLQT2 %ZTPLQT2
  %%ZTPMLQT %ZTPMLQT %%ZTPMQRT %ZTPMQRT %%ZTPQRT %ZTPQRT %%ZTPQRT2 %ZTPQRT2
  %%ZTPRFB %ZTPRFB %%ZTPRFS %ZTPRFS %%ZTPTRI %ZTPTRI %%ZTPTRS %ZTPTRS %%ZTPTTF
  %ZTPTTF %%ZTPTTR %ZTPTTR %%ZTRCON %ZTRCON %%ZTREVC %ZTREVC %%ZTREVC3 %ZTREVC3
  %%ZTREXC %ZTREXC %%ZTRRFS %ZTRRFS %%ZTRSEN %ZTRSEN %%ZTRSNA %ZTRSNA %%ZTRSYL
  %ZTRSYL %%ZTRTI2 %ZTRTI2 %%ZTRTRI %ZTRTRI %%ZTRTRS %ZTRTRS %%ZTRTTF %ZTRTTF
  %%ZTRTTP %ZTRTTP %%ZTZRZF %ZTZRZF %%ZUNBDB %ZUNBDB %%ZUNBDB1 %ZUNBDB1
  %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB3 %ZUNBDB3 %%ZUNBDB4 %ZUNBDB4 %%ZUNBDB5 %ZUNBDB5
  %%ZUNBDB6 %ZUNBDB6 %%ZUNCSD %ZUNCSD %%ZUNCSD2BY1 %ZUNCSD2BY1 %%ZUNG2L %ZUNG2L
  %%ZUNG2R %ZUNG2R %%ZUNGBR %ZUNGBR %%ZUNGHR %ZUNGHR %%ZUNGL2 %ZUNGL2 %%ZUNGLQ
  %ZUNGLQ %%ZUNGQL %ZUNGQL %%ZUNGQR %ZUNGQR %%ZUNGR2 %ZUNGR2 %%ZUNGRQ %ZUNGRQ
  %%ZUNGTR %ZUNGTR %%ZUNGTSQR %ZUNGTSQR %%ZUNHR_COL %ZUNHR_COL %%ZUNM22 %ZUNM22
  %%ZUNM2L %ZUNM2L %%ZUNM2R %ZUNM2R %%ZUNMBR %ZUNMBR %%ZUNMHR %ZUNMHR %%ZUNML2
  %ZUNML2 %%ZUNMLQ %ZUNMLQ %%ZUNMQL %ZUNMQL %%ZUNMQR %ZUNMQR %%ZUNMR2 %ZUNMR2
  %%ZUNMR3 %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR
  %ZUPGTR %%ZUPMTR %ZUPMTR))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
                                        '(("ZLANHS" "zlanhs_" %%ZLANHS %ZLANHS)
                                          ("ZLANHT" "zlanht_" %%ZLANHT %ZLANHT)
                                          ("ZLANSB" "zlansb_" %%ZLANSB %ZLANSB)
                                          ("ZLANSP" "zlansp_" %%ZLANSP %ZLANSP)
                                          ("ZLANSY" "zlansy_" %%ZLANSY %ZLANSY)
                                          ("ZLANTB" "zlantb_" %%ZLANTB %ZLANTB)
                                          ("ZLANTP" "zlantp_" %%ZLANTP %ZLANTP)
                                          ("ZLANTR" "zlantr_" %%ZLANTR %ZLANTR)
                                          ("ZLAPLL" "zlapll_" %%ZLAPLL %ZLAPLL)
                                          ("ZLAPMR" "zlapmr_" %%ZLAPMR %ZLAPMR)
                                          ("ZLAPMT" "zlapmt_" %%ZLAPMT %ZLAPMT)
                                          ("ZLAQGB" "zlaqgb_" %%ZLAQGB %ZLAQGB)
                                          ("ZLAQGE" "zlaqge_" %%ZLAQGE %ZLAQGE)
                                          ("ZLAQHB" "zlaqhb_" %%ZLAQHB %ZLAQHB)
                                          ("ZLAQHE" "zlaqhe_" %%ZLAQHE %ZLAQHE)
                                          ("ZLAQHP" "zlaqhp_" %%ZLAQHP %ZLAQHP)
                                          ("ZLAQP2" "zlaqp2_" %%ZLAQP2 %ZLAQP2)
                                          ("ZLAQPS" "zlaqps_" %%ZLAQPS %ZLAQPS)
                                          ("ZLAQR0" "zlaqr0_" %%ZLAQR0 %ZLAQR0)
                                          ("ZLAQR1" "zlaqr1_" %%ZLAQR1 %ZLAQR1)
                                          ("ZLAQR2" "zlaqr2_" %%ZLAQR2 %ZLAQR2)
                                          ("ZLAQR3" "zlaqr3_" %%ZLAQR3 %ZLAQR3)
                                          ("ZLAQR4" "zlaqr4_" %%ZLAQR4 %ZLAQR4)
                                          ("ZLAQR5" "zlaqr5_" %%ZLAQR5 %ZLAQR5)
                                          ("ZLAQSB" "zlaqsb_" %%ZLAQSB %ZLAQSB)
                                          ("ZLAQSP" "zlaqsp_" %%ZLAQSP %ZLAQSP)
                                          ("ZLAQSY" "zlaqsy_" %%ZLAQSY %ZLAQSY)
                                          ("ZLAR1V" "zlar1v_" %%ZLAR1V %ZLAR1V)
                                          ("ZLAR2V" "zlar2v_" %%ZLAR2V %ZLAR2V)
                                          ("ZLARCM" "zlarcm_" %%ZLARCM %ZLARCM)
                                          ("ZLARF" "zlarf_" %%ZLARF %ZLARF)
                                          ("ZLARFB" "zlarfb_" %%ZLARFB %ZLARFB)
                                          ("ZLARFG" "zlarfg_" %%ZLARFG %ZLARFG)
                                          ("ZLARFGP" "zlarfgp_" %%ZLARFGP
                                           %ZLARFGP)
                                          ("ZLARFT" "zlarft_" %%ZLARFT %ZLARFT)
                                          ("ZLARFX" "zlarfx_" %%ZLARFX %ZLARFX)
                                          ("ZLARFY" "zlarfy_" %%ZLARFY %ZLARFY)
                                          ("ZLARGV" "zlargv_" %%ZLARGV %ZLARGV)
                                          ("ZLARNV" "zlarnv_" %%ZLARNV %ZLARNV)
                                          ("ZLARRV" "zlarrv_" %%ZLARRV %ZLARRV)
                                          ("ZLARSCL2" "zlarscl2_" %%ZLARSCL2
                                           %ZLARSCL2)
                                          ("ZLARTG" "zlartg_" %%ZLARTG %ZLARTG)
                                          ("ZLARTV" "zlartv_" %%ZLARTV %ZLARTV)
                                          ("ZLARZ" "zlarz_" %%ZLARZ %ZLARZ)
                                          ("ZLARZB" "zlarzb_" %%ZLARZB %ZLARZB)
                                          ("ZLARZT" "zlarzt_" %%ZLARZT %ZLARZT)
                                          ("ZLASCL" "zlascl_" %%ZLASCL %ZLASCL)
                                          ("ZLASCL2" "zlascl2_" %%ZLASCL2
                                           %ZLASCL2)
                                          ("ZLASET" "zlaset_" %%ZLASET %ZLASET)
                                          ("ZLASR" "zlasr_" %%ZLASR %ZLASR)
                                          ("ZLASSQ" "zlassq_" %%ZLASSQ %ZLASSQ)
                                          ("ZLASWLQ" "zlaswlq_" %%ZLASWLQ
                                           %ZLASWLQ)
                                          ("ZLASWP" "zlaswp_" %%ZLASWP %ZLASWP)
                                          ("ZLASYF" "zlasyf_" %%ZLASYF %ZLASYF)
                                          ("ZLASYF_AA" "zlasyf_aa_" %%ZLASYF_AA
                                           %ZLASYF_AA)
                                          ("ZLASYF_RK" "zlasyf_rk_" %%ZLASYF_RK
                                           %ZLASYF_RK)
                                          ("ZLASYF_ROOK" "zlasyf_rook_"
                                           %%ZLASYF_ROOK %ZLASYF_ROOK)
                                          ("ZLAT2C" "zlat2c_" %%ZLAT2C %ZLAT2C)
                                          ("ZLATBS" "zlatbs_" %%ZLATBS %ZLATBS)
                                          ("ZLATDF" "zlatdf_" %%ZLATDF %ZLATDF)
                                          ("ZLATPS" "zlatps_" %%ZLATPS %ZLATPS)
                                          ("ZLATRD" "zlatrd_" %%ZLATRD %ZLATRD)
                                          ("ZLATRS" "zlatrs_" %%ZLATRS %ZLATRS)
                                          ("ZLATRZ" "zlatrz_" %%ZLATRZ %ZLATRZ)
                                          ("ZLATSQR" "zlatsqr_" %%ZLATSQR
                                           %ZLATSQR)
                                          ("ZLAUNHR_COL_GETRFNP"
                                           "zlaunhr_col_getrfnp_"
                                           %%ZLAUNHR_COL_GETRFNP
                                           %ZLAUNHR_COL_GETRFNP)
                                          ("ZLAUNHR_COL_GETRFNP2"
                                           "zlaunhr_col_getrfnp2_"
                                           %%ZLAUNHR_COL_GETRFNP2
                                           %ZLAUNHR_COL_GETRFNP2)
                                          ("ZLAUU2" "zlauu2_" %%ZLAUU2 %ZLAUU2)
                                          ("ZLAUUM" "zlauum_" %%ZLAUUM %ZLAUUM)
                                          ("ZPBCON" "zpbcon_" %%ZPBCON %ZPBCON)
                                          ("ZPBEQU" "zpbequ_" %%ZPBEQU %ZPBEQU)
                                          ("ZPBRFS" "zpbrfs_" %%ZPBRFS %ZPBRFS)
                                          ("ZPBSTF" "zpbstf_" %%ZPBSTF %ZPBSTF)
                                          ("ZPBSV" "zpbsv_" %%ZPBSV %ZPBSV)
                                          ("ZPBSVX" "zpbsvx_" %%ZPBSVX %ZPBSVX)
                                          ("ZPBTF2" "zpbtf2_" %%ZPBTF2 %ZPBTF2)
                                          ("ZPBTRF" "zpbtrf_" %%ZPBTRF %ZPBTRF)
                                          ("ZPBTRS" "zpbtrs_" %%ZPBTRS %ZPBTRS)
                                          ("ZPFTRF" "zpftrf_" %%ZPFTRF %ZPFTRF)
                                          ("ZPFTRI" "zpftri_" %%ZPFTRI %ZPFTRI)
                                          ("ZPFTRS" "zpftrs_" %%ZPFTRS %ZPFTRS)
                                          ("ZPOCON" "zpocon_" %%ZPOCON %ZPOCON)
                                          ("ZPOEQU" "zpoequ_" %%ZPOEQU %ZPOEQU)
                                          ("ZPOEQUB" "zpoequb_" %%ZPOEQUB
                                           %ZPOEQUB)
                                          ("ZPORFS" "zporfs_" %%ZPORFS %ZPORFS)
                                          ("ZPORFSX" "zporfsx_" %%ZPORFSX
                                           %ZPORFSX)
                                          ("ZPOSV" "zposv_" %%ZPOSV %ZPOSV)
                                          ("ZPOSVX" "zposvx_" %%ZPOSVX %ZPOSVX)
                                          ("ZPOSVXX" "zposvxx_" %%ZPOSVXX
                                           %ZPOSVXX)
                                          ("ZPOTF2" "zpotf2_" %%ZPOTF2 %ZPOTF2)
                                          ("ZPOTRF" "zpotrf_" %%ZPOTRF %ZPOTRF)
                                          ("ZPOTRF2" "zpotrf2_" %%ZPOTRF2
                                           %ZPOTRF2)
                                          ("ZPOTRI" "zpotri_" %%ZPOTRI %ZPOTRI)
                                          ("ZPOTRS" "zpotrs_" %%ZPOTRS %ZPOTRS)
                                          ("ZPPCON" "zppcon_" %%ZPPCON %ZPPCON)
                                          ("ZPPEQU" "zppequ_" %%ZPPEQU %ZPPEQU)
                                          ("ZPPRFS" "zpprfs_" %%ZPPRFS %ZPPRFS)
                                          ("ZPPSV" "zppsv_" %%ZPPSV %ZPPSV)
                                          ("ZPPSVX" "zppsvx_" %%ZPPSVX %ZPPSVX)
                                          ("ZPPTRF" "zpptrf_" %%ZPPTRF %ZPPTRF)
                                          ("ZPPTRI" "zpptri_" %%ZPPTRI %ZPPTRI)
                                          ("ZPPTRS" "zpptrs_" %%ZPPTRS %ZPPTRS)
                                          ("ZPSTF2" "zpstf2_" %%ZPSTF2 %ZPSTF2)
                                          ("ZPSTRF" "zpstrf_" %%ZPSTRF %ZPSTRF)
                                          ("ZPTCON" "zptcon_" %%ZPTCON %ZPTCON)
                                          ("ZPTEQR" "zpteqr_" %%ZPTEQR %ZPTEQR)
                                          ("ZPTRFS" "zptrfs_" %%ZPTRFS %ZPTRFS)
                                          ("ZPTSV" "zptsv_" %%ZPTSV %ZPTSV)
                                          ("ZPTSVX" "zptsvx_" %%ZPTSVX %ZPTSVX)
                                          ("ZPTTRF" "zpttrf_" %%ZPTTRF %ZPTTRF)
                                          ("ZPTTRS" "zpttrs_" %%ZPTTRS %ZPTTRS)
                                          ("ZPTTS2" "zptts2_" %%ZPTTS2 %ZPTTS2)
                                          ("ZROT" "zrot_" %%ZROT %ZROT)
                                          ("ZSPCON" "zspcon_" %%ZSPCON %ZSPCON)
                                          ("ZSPMV" "zspmv_" %%ZSPMV %ZSPMV)
                                          ("ZSPR" "zspr_" %%ZSPR %ZSPR)
                                          ("ZSPRFS" "zsprfs_" %%ZSPRFS %ZSPRFS)
                                          ("ZSPSV" "zspsv_" %%ZSPSV %ZSPSV)
                                          ("ZSPSVX" "zspsvx_" %%ZSPSVX %ZSPSVX)
                                          ("ZSPTRF" "zsptrf_" %%ZSPTRF %ZSPTRF)
                                          ("ZSPTRI" "zsptri_" %%ZSPTRI %ZSPTRI)
                                          ("ZSPTRS" "zsptrs_" %%ZSPTRS %ZSPTRS)
                                          ("ZSTEDC" "zstedc_" %%ZSTEDC %ZSTEDC)
                                          ("ZSTEGR" "zstegr_" %%ZSTEGR %ZSTEGR)
                                          ("ZSTEIN" "zstein_" %%ZSTEIN %ZSTEIN)
                                          ("ZSTEMR" "zstemr_" %%ZSTEMR %ZSTEMR)
                                          ("ZSTEQR" "zsteqr_" %%ZSTEQR %ZSTEQR)
                                          ("ZSYCON" "zsycon_" %%ZSYCON %ZSYCON)
                                          ("ZSYCON_3" "zsycon_3_" %%ZSYCON_3
                                           %ZSYCON_3)
                                          ("ZSYCON_ROOK" "zsycon_rook_"
                                           %%ZSYCON_ROOK %ZSYCON_ROOK)
                                          ("ZSYCONV" "zsyconv_" %%ZSYCONV
                                           %ZSYCONV)
                                          ("ZSYCONVF" "zsyconvf_" %%ZSYCONVF
                                           %ZSYCONVF)
                                          ("ZSYCONVF_ROOK" "zsyconvf_rook_"
                                           %%ZSYCONVF_ROOK %ZSYCONVF_ROOK)
                                          ("ZSYEQUB" "zsyequb_" %%ZSYEQUB
                                           %ZSYEQUB)
                                          ("ZSYMV" "zsymv_" %%ZSYMV %ZSYMV)
                                          ("ZSYR" "zsyr_" %%ZSYR %ZSYR)
                                          ("ZSYRFS" "zsyrfs_" %%ZSYRFS %ZSYRFS)
                                          ("ZSYRFSX" "zsyrfsx_" %%ZSYRFSX
                                           %ZSYRFSX)
                                          ("ZSYSV" "zsysv_" %%ZSYSV %ZSYSV)
                                          ("ZSYSV_AA" "zsysv_aa_" %%ZSYSV_AA
                                           %ZSYSV_AA)
                                          ("ZSYSV_AA_2STAGE" "zsysv_aa_2stage_"
                                           %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE)
                                          ("ZSYSV_RK" "zsysv_rk_" %%ZSYSV_RK
                                           %ZSYSV_RK)
                                          ("ZSYSV_ROOK" "zsysv_rook_"
                                           %%ZSYSV_ROOK %ZSYSV_ROOK)
                                          ("ZSYSVX" "zsysvx_" %%ZSYSVX %ZSYSVX)
                                          ("ZSYSVXX" "zsysvxx_" %%ZSYSVXX
                                           %ZSYSVXX)
                                          ("ZSYSWAPR" "zsyswapr_" %%ZSYSWAPR
                                           %ZSYSWAPR)
                                          ("ZSYTF2" "zsytf2_" %%ZSYTF2 %ZSYTF2)
                                          ("ZSYTF2_RK" "zsytf2_rk_" %%ZSYTF2_RK
                                           %ZSYTF2_RK)
                                          ("ZSYTF2_ROOK" "zsytf2_rook_"
                                           %%ZSYTF2_ROOK %ZSYTF2_ROOK)
                                          ("ZSYTRF" "zsytrf_" %%ZSYTRF %ZSYTRF)
                                          ("ZSYTRF_AA" "zsytrf_aa_" %%ZSYTRF_AA
                                           %ZSYTRF_AA)
                                          ("ZSYTRF_AA_2STAGE"
                                           "zsytrf_aa_2stage_"
                                           %%ZSYTRF_AA_2STAGE
                                           %ZSYTRF_AA_2STAGE)
                                          ("ZSYTRF_RK" "zsytrf_rk_" %%ZSYTRF_RK
                                           %ZSYTRF_RK)
                                          ("ZSYTRF_ROOK" "zsytrf_rook_"
                                           %%ZSYTRF_ROOK %ZSYTRF_ROOK)
                                          ("ZSYTRI" "zsytri_" %%ZSYTRI %ZSYTRI)
                                          ("ZSYTRI2" "zsytri2_" %%ZSYTRI2
                                           %ZSYTRI2)
                                          ("ZSYTRI2X" "zsytri2x_" %%ZSYTRI2X
                                           %ZSYTRI2X)
                                          ("ZSYTRI_3" "zsytri_3_" %%ZSYTRI_3
                                           %ZSYTRI_3)
                                          ("ZSYTRI_3X" "zsytri_3x_" %%ZSYTRI_3X
                                           %ZSYTRI_3X)
                                          ("ZSYTRI_ROOK" "zsytri_rook_"
                                           %%ZSYTRI_ROOK %ZSYTRI_ROOK)
                                          ("ZSYTRS" "zsytrs_" %%ZSYTRS %ZSYTRS)
                                          ("ZSYTRS2" "zsytrs2_" %%ZSYTRS2
                                           %ZSYTRS2)
                                          ("ZSYTRS_3" "zsytrs_3_" %%ZSYTRS_3
                                           %ZSYTRS_3)
                                          ("ZSYTRS_AA" "zsytrs_aa_" %%ZSYTRS_AA
                                           %ZSYTRS_AA)
                                          ("ZSYTRS_AA_2STAGE"
                                           "zsytrs_aa_2stage_"
                                           %%ZSYTRS_AA_2STAGE
                                           %ZSYTRS_AA_2STAGE)
                                          ("ZSYTRS_ROOK" "zsytrs_rook_"
                                           %%ZSYTRS_ROOK %ZSYTRS_ROOK)
                                          ("ZTBCON" "ztbcon_" %%ZTBCON %ZTBCON)
                                          ("ZTBRFS" "ztbrfs_" %%ZTBRFS %ZTBRFS)
                                          ("ZTBTRS" "ztbtrs_" %%ZTBTRS %ZTBTRS)
                                          ("ZTFSM" "ztfsm_" %%ZTFSM %ZTFSM)
                                          ("ZTFTRI" "ztftri_" %%ZTFTRI %ZTFTRI)
                                          ("ZTFTTP" "ztfttp_" %%ZTFTTP %ZTFTTP)
                                          ("ZTFTTR" "ztfttr_" %%ZTFTTR %ZTFTTR)
                                          ("ZTGEVC" "ztgevc_" %%ZTGEVC %ZTGEVC)
                                          ("ZTGEX2" "ztgex2_" %%ZTGEX2 %ZTGEX2)
                                          ("ZTGEXC" "ztgexc_" %%ZTGEXC %ZTGEXC)
                                          ("ZTGSEN" "ztgsen_" %%ZTGSEN %ZTGSEN)
                                          ("ZTGSJA" "ztgsja_" %%ZTGSJA %ZTGSJA)
                                          ("ZTGSNA" "ztgsna_" %%ZTGSNA %ZTGSNA)
                                          ("ZTGSY2" "ztgsy2_" %%ZTGSY2 %ZTGSY2)
                                          ("ZTGSYL" "ztgsyl_" %%ZTGSYL %ZTGSYL)
                                          ("ZTPCON" "ztpcon_" %%ZTPCON %ZTPCON)
                                          ("ZTPLQT" "ztplqt_" %%ZTPLQT %ZTPLQT)
                                          ("ZTPLQT2" "ztplqt2_" %%ZTPLQT2
                                           %ZTPLQT2)
                                          ("ZTPMLQT" "ztpmlqt_" %%ZTPMLQT
                                           %ZTPMLQT)
                                          ("ZTPMQRT" "ztpmqrt_" %%ZTPMQRT
                                           %ZTPMQRT)
                                          ("ZTPQRT" "ztpqrt_" %%ZTPQRT %ZTPQRT)
                                          ("ZTPQRT2" "ztpqrt2_" %%ZTPQRT2
                                           %ZTPQRT2)
                                          ("ZTPRFB" "ztprfb_" %%ZTPRFB %ZTPRFB)
                                          ("ZTPRFS" "ztprfs_" %%ZTPRFS %ZTPRFS)
                                          ("ZTPTRI" "ztptri_" %%ZTPTRI %ZTPTRI)
                                          ("ZTPTRS" "ztptrs_" %%ZTPTRS %ZTPTRS)
                                          ("ZTPTTF" "ztpttf_" %%ZTPTTF %ZTPTTF)
                                          ("ZTPTTR" "ztpttr_" %%ZTPTTR %ZTPTTR)
                                          ("ZTRCON" "ztrcon_" %%ZTRCON %ZTRCON)
                                          ("ZTREVC" "ztrevc_" %%ZTREVC %ZTREVC)
                                          ("ZTREVC3" "ztrevc3_" %%ZTREVC3
                                           %ZTREVC3)
                                          ("ZTREXC" "ztrexc_" %%ZTREXC %ZTREXC)
                                          ("ZTRRFS" "ztrrfs_" %%ZTRRFS %ZTRRFS)
                                          ("ZTRSEN" "ztrsen_" %%ZTRSEN %ZTRSEN)
                                          ("ZTRSNA" "ztrsna_" %%ZTRSNA %ZTRSNA)
                                          ("ZTRSYL" "ztrsyl_" %%ZTRSYL %ZTRSYL)
                                          ("ZTRTI2" "ztrti2_" %%ZTRTI2 %ZTRTI2)
                                          ("ZTRTRI" "ztrtri_" %%ZTRTRI %ZTRTRI)
                                          ("ZTRTRS" "ztrtrs_" %%ZTRTRS %ZTRTRS)
                                          ("ZTRTTF" "ztrttf_" %%ZTRTTF %ZTRTTF)
                                          ("ZTRTTP" "ztrttp_" %%ZTRTTP %ZTRTTP)
                                          ("ZTZRZF" "ztzrzf_" %%ZTZRZF %ZTZRZF)
                                          ("ZUNBDB" "zunbdb_" %%ZUNBDB %ZUNBDB)
                                          ("ZUNBDB1" "zunbdb1_" %%ZUNBDB1
                                           %ZUNBDB1)
                                          ("ZUNBDB2" "zunbdb2_" %%ZUNBDB2
                                           %ZUNBDB2)
                                          ("ZUNBDB3" "zunbdb3_" %%ZUNBDB3
                                           %ZUNBDB3)
                                          ("ZUNBDB4" "zunbdb4_" %%ZUNBDB4
                                           %ZUNBDB4)
                                          ("ZUNBDB5" "zunbdb5_" %%ZUNBDB5
                                           %ZUNBDB5)
                                          ("ZUNBDB6" "zunbdb6_" %%ZUNBDB6
                                           %ZUNBDB6)
                                          ("ZUNCSD" "zuncsd_" %%ZUNCSD %ZUNCSD)
                                          ("ZUNCSD2BY1" "zuncsd2by1_"
                                           %%ZUNCSD2BY1 %ZUNCSD2BY1)
                                          ("ZUNG2L" "zung2l_" %%ZUNG2L %ZUNG2L)
                                          ("ZUNG2R" "zung2r_" %%ZUNG2R %ZUNG2R)
                                          ("ZUNGBR" "zungbr_" %%ZUNGBR %ZUNGBR)
                                          ("ZUNGHR" "zunghr_" %%ZUNGHR %ZUNGHR)
                                          ("ZUNGL2" "zungl2_" %%ZUNGL2 %ZUNGL2)
                                          ("ZUNGLQ" "zunglq_" %%ZUNGLQ %ZUNGLQ)
                                          ("ZUNGQL" "zungql_" %%ZUNGQL %ZUNGQL)
                                          ("ZUNGQR" "zungqr_" %%ZUNGQR %ZUNGQR)
                                          ("ZUNGR2" "zungr2_" %%ZUNGR2 %ZUNGR2)
                                          ("ZUNGRQ" "zungrq_" %%ZUNGRQ %ZUNGRQ)
                                          ("ZUNGTR" "zungtr_" %%ZUNGTR %ZUNGTR)
                                          ("ZUNGTSQR" "zungtsqr_" %%ZUNGTSQR
                                           %ZUNGTSQR)
                                          ("ZUNHR_COL" "zunhr_col_" %%ZUNHR_COL
                                           %ZUNHR_COL)
                                          ("ZUNM22" "zunm22_" %%ZUNM22 %ZUNM22)
                                          ("ZUNM2L" "zunm2l_" %%ZUNM2L %ZUNM2L)
                                          ("ZUNM2R" "zunm2r_" %%ZUNM2R %ZUNM2R)
                                          ("ZUNMBR" "zunmbr_" %%ZUNMBR %ZUNMBR)
                                          ("ZUNMHR" "zunmhr_" %%ZUNMHR %ZUNMHR)
                                          ("ZUNML2" "zunml2_" %%ZUNML2 %ZUNML2)
                                          ("ZUNMLQ" "zunmlq_" %%ZUNMLQ %ZUNMLQ)
                                          ("ZUNMQL" "zunmql_" %%ZUNMQL %ZUNMQL)
                                          ("ZUNMQR" "zunmqr_" %%ZUNMQR %ZUNMQR)
                                          ("ZUNMR2" "zunmr2_" %%ZUNMR2 %ZUNMR2)
                                          ("ZUNMR3" "zunmr3_" %%ZUNMR3 %ZUNMR3)
                                          ("ZUNMRQ" "zunmrq_" %%ZUNMRQ %ZUNMRQ)
                                          ("ZUNMRZ" "zunmrz_" %%ZUNMRZ %ZUNMRZ)
                                          ("ZUNMTR" "zunmtr_" %%ZUNMTR %ZUNMTR)
                                          ("ZUPGTR" "zupgtr_" %%ZUPGTR %ZUPGTR)
                                          ("ZUPMTR" "zupmtr_" %%ZUPMTR
                                           %ZUPMTR)))

(COMMON-LISP:EXPORT
 '(%ZLANHS %ZLANHT %ZLANSB %ZLANSP %ZLANSY %ZLANTB %ZLANTP %ZLANTR %ZLAPLL
   %ZLAPMR %ZLAPMT %ZLAQGB %ZLAQGE %ZLAQHB %ZLAQHE %ZLAQHP %ZLAQP2 %ZLAQPS
   %ZLAQR0 %ZLAQR1 %ZLAQR2 %ZLAQR3 %ZLAQR4 %ZLAQR5 %ZLAQSB %ZLAQSP %ZLAQSY
   %ZLAR1V %ZLAR2V %ZLARCM %ZLARF %ZLARFB %ZLARFG %ZLARFGP %ZLARFT %ZLARFX
   %ZLARFY %ZLARGV %ZLARNV %ZLARRV %ZLARSCL2 %ZLARTG %ZLARTV %ZLARZ %ZLARZB
   %ZLARZT %ZLASCL %ZLASCL2 %ZLASET %ZLASR %ZLASSQ %ZLASWLQ %ZLASWP %ZLASYF
   %ZLASYF_AA %ZLASYF_RK %ZLASYF_ROOK %ZLAT2C %ZLATBS %ZLATDF %ZLATPS %ZLATRD
   %ZLATRS %ZLATRZ %ZLATSQR %ZLAUNHR_COL_GETRFNP %ZLAUNHR_COL_GETRFNP2 %ZLAUU2
   %ZLAUUM %ZPBCON %ZPBEQU %ZPBRFS %ZPBSTF %ZPBSV %ZPBSVX %ZPBTF2 %ZPBTRF
   %ZPBTRS %ZPFTRF %ZPFTRI %ZPFTRS %ZPOCON %ZPOEQU %ZPOEQUB %ZPORFS %ZPORFSX
   %ZPOSV %ZPOSVX %ZPOSVXX %ZPOTF2 %ZPOTRF %ZPOTRF2 %ZPOTRI %ZPOTRS %ZPPCON
   %ZPPEQU %ZPPRFS %ZPPSV %ZPPSVX %ZPPTRF %ZPPTRI %ZPPTRS %ZPSTF2 %ZPSTRF
   %ZPTCON %ZPTEQR %ZPTRFS %ZPTSV %ZPTSVX %ZPTTRF %ZPTTRS %ZPTTS2 %ZROT %ZSPCON
   %ZSPMV %ZSPR %ZSPRFS %ZSPSV %ZSPSVX %ZSPTRF %ZSPTRI %ZSPTRS %ZSTEDC %ZSTEGR
   %ZSTEIN %ZSTEMR %ZSTEQR %ZSYCON %ZSYCON_3 %ZSYCON_ROOK %ZSYCONV %ZSYCONVF
   %ZSYCONVF_ROOK %ZSYEQUB %ZSYMV %ZSYR %ZSYRFS %ZSYRFSX %ZSYSV %ZSYSV_AA
   %ZSYSV_AA_2STAGE %ZSYSV_RK %ZSYSV_ROOK %ZSYSVX %ZSYSVXX %ZSYSWAPR %ZSYTF2
   %ZSYTF2_RK %ZSYTF2_ROOK %ZSYTRF %ZSYTRF_AA %ZSYTRF_AA_2STAGE %ZSYTRF_RK
   %ZSYTRF_ROOK %ZSYTRI %ZSYTRI2 %ZSYTRI2X %ZSYTRI_3 %ZSYTRI_3X %ZSYTRI_ROOK
   %ZSYTRS %ZSYTRS2 %ZSYTRS_3 %ZSYTRS_AA %ZSYTRS_AA_2STAGE %ZSYTRS_ROOK %ZTBCON
   %ZTBRFS %ZTBTRS %ZTFSM %ZTFTRI %ZTFTTP %ZTFTTR %ZTGEVC %ZTGEX2 %ZTGEXC
   %ZTGSEN %ZTGSJA %ZTGSNA %ZTGSY2 %ZTGSYL %ZTPCON %ZTPLQT %ZTPLQT2 %ZTPMLQT
   %ZTPMQRT %ZTPQRT %ZTPQRT2 %ZTPRFB %ZTPRFS %ZTPTRI %ZTPTRS %ZTPTTF %ZTPTTR
   %ZTRCON %ZTREVC %ZTREVC3 %ZTREXC %ZTRRFS %ZTRSEN %ZTRSNA %ZTRSYL %ZTRTI2
   %ZTRTRI %ZTRTRS %ZTRTTF %ZTRTTP %ZTZRZF %ZUNBDB %ZUNBDB1 %ZUNBDB2 %ZUNBDB3
   %ZUNBDB4 %ZUNBDB5 %ZUNBDB6 %ZUNCSD %ZUNCSD2BY1 %ZUNG2L %ZUNG2R %ZUNGBR
   %ZUNGHR %ZUNGL2 %ZUNGLQ %ZUNGQL %ZUNGQR %ZUNGR2 %ZUNGRQ %ZUNGTR %ZUNGTSQR
   %ZUNHR_COL %ZUNM22 %ZUNM2L %ZUNM2R %ZUNMBR %ZUNMHR %ZUNML2 %ZUNMLQ %ZUNMQL
   %ZUNMQR %ZUNMR2 %ZUNMR3 %ZUNMRQ %ZUNMRZ %ZUNMTR %ZUPGTR %ZUPMTR)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
